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A BATONS 
ROMPUS 



Que de deceptions chez les premiers 
possesseurs d'un Apple IIGS ! Je ne 
compte plus les S.O.S. telephoniques 
et les iettres plus ou moins virjlentes, 
soulignant que I'article paru dans le 
numero 1 1 de Tremplin Micro n'o pas 
ete etranger a !a decision d'un achot 
que deja Ton regrette... 
Heureusement, du moins pour I'avenir 
de lo machine, les reactions positives 
se revelent nettement plus nombreu- 
ses que les premieres, mais emanent 
generalement d'utilisateurs considered 
comme particulierement competent* : 
programmers, membres de clubs de 
micro-informatique, applemaniaques 
inconditionnels. 

Resle que le mol existe. APPLE aurait 
certoinement pu le prevenir. Le guerir 
se revelera plus difficile et loissera en 
tout cas des sequelles. 

Heureux 

membres du Club Apple 

Premier probleme : un certain nombre 
de personnes, generalemenr mal infor- 
mees, ont paye leur Apple IIGS au 
prix fort ators que tous les membres du 
Club Apple (adhesion grotuite) pou- 
vaient beneficier, pendant la plus 
grande partie du mois de decembre, 
dune remise de trente pour cent (non 
seulement sur le GS, mois sur la plu- 
pari des produits de la marque, Apple 
lie . except^). Une condition : etre 
membre du Club au l* r decembre 1986. 
Une autre (exigee par des revendeurs 
pointilleuK) : avoir passe lo commande 
pendant la periode effectivement con- 
cernee par la promotion... et non 
avont. Tant pis pour les imbeciles qui, 
accordant toute leur confionce a la 



marque avaienl commande leur GS 
immediatement apres i'annonce de sa 
commercialisation ! Personnellement, 
j'ai conseille 6 tous mes correspon- 
dents de ne point ceder oux pressions 
de leur concessionnaire et d'exiger 
LEUR remise de trente pour cent quelle 
que soit Ic date d'enregistrement de Ja 
commande. II y a eu des cris et des 
grincements de dents et je connais 
actuellement des mecontents jurant, 
mais un peu tard, qu on ne les prendre 
jamais plus a ce petit jeu stupide. 

un Apple lies, 

mois pour quoi f aire ? 

Je vais etre dor, mais franc, comme 
toujours : si vous avez achete ou com- 
mande un GS sans savoir pourquoi, ne 
venez pas vous plaindre de la pauvrete 
de sa documentation ou de I'absence 
de logiciels utilisont toutes les ressour- 
ces du 65C816. Bien entendu, si vous 
avez decide cet achat simplement pour 
le plaisir de disposer, chez vous, du 
dernier produit a I'enseigne de lo 
POMME, libre d vous. Je preciserci 
meme que je comprends parfaitement 
cette demarche. Mais alors, prenez 
patience et attendez de connaTtre 
voire nouveau jouet avant de lui 
decouvrir tous les dSfauts possibles. 
Des qualites, il en possede votre Apple 
IIGS, mais el les se dissimulent pres- 
que toutes derriere une compatibilite 
qui pourraif bien etre considered, plus 
tard, comme penalisonte. 
Les logiciels viendront en leur temps, 
mais les outeurs ne se bousculent pas 
au portillon. Je vous promets que 
Tremplin Micro leur ouvrira toutes 
grandes ses colonnes pour parler de 



leurs realisations. II est certain que 
I'Apple IIGS permettra aux program- 
meurs d'aller plus loin, mais seulement 
dans la mesure ou ils accepteront de 
passer par des langages plus evolues 
que le Basic Applesoft : le C, par exem- 
ple, et I'Assembleur. Les OUTILS mis a 
leur disposition por le GS autorisent 
des logiciels dignes de ceux de Mac. 

Utterature... pauvre 

Mais pour programmer une machine 
aussi complexe que I'Apple IIGS, il 
convient de posseder de bons manuels 
de references, avec si possible de 
nombreux exemples. Apple propose 
bien son INSIDE APPLE IIGS (plus de 
3000 pages de documentation et 8 dis- 
quettes)*, mais ne compter pas sur ce 
monument pour vous fournir des 
EXEMPLES. Or, je le sais, c J est ce 
qu'attendent tous nos correspondents. 
Je rappelle a ce propos que deux 
ouvrages dotvent paraitre au PSI 
(Assembleur de I'Apple IIGS et LA 
BOITE A OUTILS DE L'APPLE IIGS)... 
mais j'ignore a quelle date. J'admire 
d'ailleurs les auteurs qui se sont alle- 
les a une telle besogne : ce n'est pos 
gagne d'avonce ! 

vceux pieui 

Alors, le GS ? Personnellement, je sou- 
haite qu il ne connaisse pas le sort de 
I'Apple /// (le meilleur, d'apres ceux qui 
en sont encore les heureux utilisateurs). 
mois plutot celui de I'Apple U, son illustre 
ancetre, J'aurais aime que Microsoft (ce 
sont des gens qui ignorent totalement 
Tremplin Micro... sans doute trop petit 
pour les interesser) et Apple se mettenl 
d'accord pour nous concocter, sur le GS. 
un vrai Basic, ressemblant por exemple a 
celui du Mac. Le langage C me seduit, 
mois le temps de compilation est long... 
trop long. J'aimerais aussi avoir ProDOS 
16 en ROM (je ne suis pas oppose a so 
presence sur une carte) car sa duree de 
chargement est egalement interminable. 
Quant au reste — et notamment les pro- 
grammes — . rassurez-vous : ils arrivent, 
mais accordez-nous le temps de com- 
prendre la mochine et celui de I'alimenter 
en instructions comprises par le 65C8I6 ! 

G H. 

• VIF — 5 rue ds Boswno - 751 16 PARIS [2096 F HQ 
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UllUiftHH J [ DOS 3.3 



ProDOS 




TRANSITION 



Maurice CHAVELU 



DE HCR a HGR2 



c 



ERTAINS jeux utilisent, dans leur presentation graphique, un tres elegant scrolling 
des pages graphiques. Je me suis demande s'il etait facife d realiser. Dans cet arti- 
cle, je vous propose deux versions ; 

• La premiere est tres econome en espace memoire, mais nest pas tres rapide. 

* La deuxieme se revele beaucoup plus gourmande, mais elle est deux fois plus rapide que la precedents 

Bien sur, il n'est pas interdit de concevoir une formole encore plus performante ! Mais je 
vous promets de longues reflexions sur I'adressage des pages graphiques de votre Apple 
cherL SCROLL. DEMO vous presente les deux versions avec des ecrans graphiques sommai- 
res. Libre a vous de remplacer ceux-ci par vos chefs-d'oeuvre. II est facile de modifier les 
programmes pour obtenir un defilement continu ou d'utiliser N pages. A vos claviers ! 



FORME 

Les lignes 1 a 3 etablis- 
sent une table de for- 
me(s) sommaire (seule- 
ment un carre !} a partir 
de I'adresse 896. 

Si vous avez la chance de 
posseder un ecran cou- 
leur, vous obtiendrez des 
ecrans de couleur d life- 
rents par le decalage 
horizontal (1 point) de lo 
forme. 

Nous vous donnons, plus 
loin, un moyen de tracer 
un peu plus rapidement 
un ecran damier, mais ce 
n'etatt pas le propos de 
Maurice Chavelli. 



10 

11 
12 

13 
14 

15 

16 



SCROLL DEMO 

FOR C = 896 TO 916: READ A%: POKE C,AXi NEXT 
POKE 232,128: POKE 233,3 

DATA 1 , B , 4 ,0 ,54 ,54 ,54 , 1 10 ,36 ,36 , 36 , 108,54 ,54 , 

54,110,36,36,36,36,0 

SPEECH 109 

TEXT : HOME : POKE - 16197,9 

VTAB 8: HTA8 3; PRINT "Ce programme est une d 

emonstrat ion" : PRINT : PRINT : HTAB 7: PRINT 

"des routines de transition": PRINT : PRINT : 

HTAB 9: PRINT "de pages graphiques HGR." 

PRINT : PRINT : PRINT : PRINT "Nous allons co 

rnmencer par creer 2 Ecrans" 

FOR C = 1 TO 500: NEXT 

H6R2 : HC0L0R= 3: R0T= 0: SCALE= 1 

FOR X = TO 272 STEP 16: FOR Y - TO 184 ST 

EP 14 

DRAW 1 AT X,Y: NEXT Y,X 3400 
FOR X = 8 TO 264 STEP 16: FOR Y = 7 TO 177 ST 
EP 14 

DRAW 1 AT X,Y: NEXT Y,X 
HGR : POKE - 16302,0 

FOR X = 1 TO 273 STEP 14: FOR Y = TO 184 ST 
EP 14 

DRAW 1 AT X,Y: NEXT Y,X 
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TRANSITION 




VOS PROGRAMMES 

Page 3 SCROLL. DEMO 
Page 4 SCROLL 1.5 
Page 5 SCROIL2.5 
tes debutants pourront 
passer direetement a la 
page 7, 





SCROLL. DEMO (suite) 








17 


FOR X ■ 9 TO 265 STEP 16: FOR Y = 7 TO 


177 


ST 






EP 14 






7215 


18 


DRAW 1 AT X,Y: NEXT Y,X 






3400 


19 


FOR C = 1 TO 106 : NEXT : HOME 






66A4 


20 


TEXT : VTAB 15: HTAB 8: PRINT "Void U 


versi 






on n 1 1 ..." : FOR C = 1 TO 1809 s NEXT 






4859 


21 


PRINT CHR$ (4)*BLQADSCR0LL1 .C" 






A53D 


22 


POKE 49232,0: POKE 49239,0: POKE 49234, 


e 




1AC8 


23 


CALL 768: HOME 






AB02 


24 


TEXT : VTAB 15: HTAB 8: PRINT "Voici la 


versi 






on n 1 2 . . . " 






4D1D 


25 


POKE 230,32 






89DF 


24 


FOR X = 1 TO 273 STEP 16: FOR Y = B TO 


184 


ST 






EP 14 






8A83 


27 


DRAW 1 AT X,Y: NEXT Y,X 






3490 


28 


FOR X = 9 TO 265 STEP 14: FOR Y = 7 TO 


177 


ST 






EP 14 






7215 


29 


DRAW 1 AT X,Y: NEXT Y ,X 






3409 


30 


PRINT CHR$ <4) ,t BL0ADSCR0LL2.C ,, 






C03E 


31 


POKE 49232,9: POKE 49239,0: POKE 49234, 


6 




1AC8 


32 


CALL 768 






8331 


33 


FOR C = 1 TO 1090: NEXT : HOME : TEXT : 


SPEED 






= 255 






2616 



SCROLL1.S 



PROGRAMME 
SOURCE 




1 

2 
3 


#****«********#** 
* Trans i t i on VI * 
*********** ****** 






Assemblage : 
ProCODE 




4 
5 
6 


* Cette 


version e-f-fectue 


1 a trans i t i on 


en 26s 






7 


PTR 
HBASL 




$8 
$26 


; pointeur de 


] igne 






9 


HBASH 




$27 










10 


HPAG 




$E4 










11 


HPOSN 




$F417 










12 
















13 




ORG 


f 3@e 










14 
















15 


* Transfert partie de la 


routine HPOSN 








14 


* pour 


ameliorer la vitesse d' execu t i on 








17 












9309: 




18 




LDX 


£$60 


; installs un 


RTS a la fin 


0392: 


03 


19 




STX 


$378 






9305: A2 20 




20 




LDX 


£32 


; c'est parti 


pour 33 octets 


0387: 8D 17 


F4 


21 


BCL 


LDA 


HPOSN, X 






030A: 90 57 


03 


22 




STA 


HP0S,X 






030D: CA 




23 




DEX 








930E: 19 F7 




24 




BPL 


BCL 







4 



GUY-HACHETTE 



25 

26 * Dgbut du programme 

27 



3310 : 


A2 


80 




28 




LDX 


£0 


\ 


prem i ere 1 i gne 


0312 : 


A? 


20 




2? 


BCLX 


LDA 


£t20 


! 


se 1 ec t f anne 1 a page 1 


8314: 


85 


E6 




30 




STA 


■ IftA ft 

HPAG 






0316: 


8D 


28 


03 


31 




STA 


MEM +2 


i 


adresse de la 11 gne 


0319: 


A? 


96 




32 




LDA 


£0 






831 B : 


8D 


2A 


03 


33 




STA 


MEM+ 1 






9 3 1 E ; 


A9 


1 




1 A 

34 




LDA 


£ 1 




prem i ere 1 i gne 


0329 : 


85 


88 




35 




CTA 


DT D 

r 1 K 


; 


initialise i e poi n iBur 


A 1 T5 . 

8322 : 


20 


57 


83 


36 


DEBUT 


JSR 


HPUb 




calcul adresse de la ligne 


0325 : 


A0 


27 




if 




LDY 


t jy 




c P5 1 parii pour tc ucieisi 


0327 : 


Bl 


i / 
26 






DPI V 1 

DLL ( 1 


LDA 


\ HoAbL > , T 


■ 


Irdn^Tr r T Q Un Ol lei 


A 111 - 

032? : 


9? 


08 


09 


3? 


Mtn 


b I A 


%v , Y 






032C : 


A A 

88 






4a 




r\cv 
L/t f 




; 


u n □ e m o i n s 


032D : 


1 8 


F8 




4 1 




DDI 

BPL 


dLLYI 


: 


1 e dernier? 


032F : 


A5 


26 




A 'j 




1 PiA 

LDA 


LI DA CI 

HBAbL 


* 


sauvegaroe oss LDoraonnccs 


/i ^ j 

6331 : 


8D 


2A 


03 


43 




STA 


MEM+ 1 






8334 : 


A5 


27 




44 




LDA 


HBASH 






0336 : 


8D 


26 


03 


45 




ATA 

STA 


ntn+2 






A HO . 

833? ; 


E6 


08 




46 




iNL 


DT D 

PTR 


i 


u ne 1 i gn e de plus 


6338 : 


A5 


08 




47 




LDA 


PTR 






A nan _ 

9 3 3D : 


C9 


C0 




48 




CnP 


1 1 ?2 


; 


la dern ( e r e r 


A 1 r\r- . 

833F : 


D0 


El 




4? 




Oh IC 
DlNfc 


rs C D t IT 




non 


0341 : 


06 


E6 




C CI 

50 




AOI 

AbL 


HrAb 




seiectionne la page z 


0343 : 


8A 






51 




TXA 








Odd . 


£0 




3 






TQD 


upnc 


• 


f r anc^ar t Ha la 1 1 11% A V 

trallsTer I Qe 1 s II tfnc A « » ■ 


8347: 


A0 


27 




53 




LDY 


£39 






8349: 


61 


26 




54 


BCLY2 


LDA 


(HBASL) ,Y 






034B: 


?? 


D0 


3F 


55 




STA 


*3FD0,Y 






034E: 


88 






56 




DEY 








034F: 


18 


F8 




57 




BPL 


BCLY2 






0351 : 


E8 






58 




1NX 




i 


une 1 i gne de plus 


0352: 


E0 


C0 




5? 




CPX 


£192 




la derni&re^ 


0354: 


00 


BC 




68 




BME 


BCLX 


i 


non 


0356: 


60 






61 




RTS 






oui => retour BASIC 



62 HPOS DFB 



SCROLL2.5 



PMKRAMME 
SOURCE 

Assemblage : 
ProCODE 



1 
1 
3 
A 

5 
6 
7 
8 
9 
19 
11 
12 



* Transi t ion V2 * 

* Cette uersion e^-fectue la transition en 13s 



PTR 

HBASL 

HBASH 

HPAG 

HPOSN 



$8 

$26 

$27 

*E6 

*F4i? 



; poi n teur de 1 i gne 



(suite page 6) 



SCROLL2.S (suite) 



13 0R3 $300 

14 











15 


* Creation sous-programme 


en $6880 










16 










0399 


A9 


20 




17 




LDA 


£$28 


; select ionne la page 


0302 


85 


E6 




IB 




STA 


HPAG 




0304 


A? 


00 




19 




LDA 


£8 


I pointe en $6898 


0386 


8D 


73 


93 


20 




STA 


IND1+1 




0309 


A9 


60 




21 




LDA 


£$68 




038B 


80 


74 


03 


22 




STA 


IND1+2 




030E 


A9 


A2 




23 




LDA 


£$A2 


rill t fk.\J J* r"k ~~j 

; mstat 1 e un LDX £$27 


0310 


20 


72 


03 


24 




JSR 


IND1 




0313 


A9 


27 




25 




LDA 


£$27 




0315: 


20 


72 


03 


26 




JSR 


IND1 




0318 


A9 


01 




27 




LDA 


£1 


; 1 tgne 1 


B31A 


85 


08 




28 




STA 


PTR 




031C. 


A9 


BD 




29 


BCL 


LDA 


£$BD 


j installe un LDA 


031E: 


20 


72 


03 


30 




JSR 


IND1 




0321 : 


20 


66 


03 


31 




JSR 


IND 




0324! 


C6 


08 




32 




DEC 


PTR 




0326: 


A9 


9D 




33 




LDA 


£$9D 


; installe u n STA 


8328: 


28 


72 


83 


34 




JSR 


IND1 




032B 




66 


03 


35 




JSR 


IND 




032E 


E6 


08 




36 




INC 


PTR 




0330 


E6 


08 




37 




INC 


PTR 




8332 


A5 


88 




38 




LDA 


PTR 




0334 


C9 


C0 




39 




CMP 


£192 


; la derniere? 


0336 


D0 


E4 




40 




BNE 


BCL 


1 non 


8338 


: A2 


00 




41 




LDX 


£0 




033A 


: 8D 


7E 


83 


42 


BCLX 


LDA 


FIN,X 


; i nstal 1 e la -fin 


033D 


: 28 


72 


03 


43 




JSR 


IND1 




0340 


! E8 






44 




I NX 






8341 


: E8 


0> 




45 




CPX 


£7 




0343 


: DO 


F5 




46 
47 




BNE 


BCLX 





48 * DSbut du programme 











49 










8345: 


86 


E6 




58 




ASL 


HPAG 


; page 2 


8347: 


A9 


80 




51 




LDA 


£8 




8349: 


85 


08 




52 




STA 


PTR 


; 1 i gne 


834B: 


20 


00 


60 


53 


DEPART 


JSR 


$6800 


} monte dun cran 


834E: 


A5 


38 




54 




LDA 


PTR 




0358: 


20 


17 


F4 


55 




JSR 


HPOSN 


; trans-f ert 1 i gne 191 


8353: 


A0 


27 




56 




LDY 


£39 




0355: 


Bl 


26 




57 


BCLY 


LDA 


< HBASL) ,Y 




0357: 


99 


D8 


3F 


58 




STA 


$3FD8 ,Y 




035A: 


88 






59 




DEY 






8356: 


10 


F8 




60 




BPL 


BCLY 




035D: 


E6 


08 




61 




INC 


PTR 


; une 1 i gne de plus 


035F: 


A5 


88 




62 




LDA 


PTR 




0361 : 


C9 


C0 




63 




CMP 


£192 


; la derniere? 


0363: 


D8 


E6 




64 




BNE 


DEPART 


£ n on 


8365: 


66 






65 
66 




RTS 







GUY-HACHETTE 











67 
68 


* Rout 


ne pour 1 a cr£at i on 


6366: 


A5 


08 




69 


IND 




PTP 


0368: 


29 


17 


F4 


70 




■J 3 r*. 


PlrUbiN 


036B: 


A5 


26 




71 




1 HA 


up/, z » 


9360: 


28 


72 


03 


72 




TQP 


Thin i 


8370: 


A5 


27 




73 




1 HA 


LiDACU 

rIDH D 11 


0372: 


8D 


80 


60 


74 


IND1 


CTA 

3 J rl 


A ft 


0375: 


EE 


73 


03 


75 




TNP 


TNHI + 1 
X I'lU 1 T 1 


0378: 


D0 


03 




76 




RNF 




037A: 


EE 


74 


03 


77 




TNT 




837D: 


60 






78 


IND2 


l\ 1 












79 








037E: 


CA 






88 


FIN 


HEX 


CA ; 


037F: 


38 






81 




HEX 


38 ; 


0380 : 


83 






82 




HEX 


9 3 


0381 : 


4C 






83 




HEX 


4C ; 


0382: 


02 






84 




HEX 


02 


8383: 


68 






85 




HEX 


60 


0384: 


60 






86 




HEX 


68 ; 



; JMP *6802 



; RTS 




SCROLL1.C 
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Si le langoge 
machine et 
I assembleur ne 
vous inspirent 
pas, contentez- 
vous de recopier 
ces routines d la 
suite d'un 
CALL-151. 

Les caracteres 
HEXA indiques 
en bout de ligne 
sent destines au 
control© de la 
saisie (controle 
facile avec votre 
disquette 
SIGNATURE). 



DAMIER 



A2 99 86 9 86 18 A9 08 85 06 A9 00 85 67 A9 11 

9310; 85 98 A5 18 4A 90 06 A9 08 85 06 C6 08 A6 06 A4 

0329: 07 A5 09 20 11 F4 A0 93 A2 48 20 50 F6 A9 19 18 

0338: 65 06 85 06 90 82 E6 07 C6 08 10 El AS 99 69 08 

8340: 85 09 E6 IB A5 18 C9 18 90 BC 60 36 36 36 6E 24 

0359: 24 24 6C 36 36 36 6E 24 24 24 24 00 



8FF2 
6484 
79AE 
4053 
0B9A 
B154 



voir page a 



BSAVE DAMIER, 
A$3uG,L$5C 



TREMPLIN MICRO 
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NESTOR 



DAMIER HGR 



■ A FORME ? un simple carre. Le programme : aussi clair que possible (le probleme 
pourrait etre traite autrement), pour etre compris par des utilisateurs peu habitues 
au langage machine. 

L'adresse horizontale du point initial de chaque carre est sur deux octets (elle est stockee en 
$6-7). L'adresse verticale (un seul octet) est memorisee en $9. On utilise par ailleurs deux 
pointeurs ; le nombre de carres par ligne, decrements jusqu'a inclus (il est stocke en $8) et 
le nombre de lignes (dans la case memoire $18). Telle quelle se presente, la routine fonc- 
tionne aussi bien avec le 6502 qu'avec le 65C02.., ou le 65C81 6 de I'Apple IIGS. Vous remar- 
querez qu'elle n'utilise pas la pile et ne cherche pas non plus a tirer parti des registres. 

La couleur du damier est modifiee par la ligne Basic 11, en decalant toutes les adresses 
horizontales dun point (POKE 775,0 et POKE 792,8 ou bien POKE 775 J et POKE 792,9). 

Vous trouverez page 10 le listage de DAMIER1 : meme longueur, mais I'affichage des carres 
se fait par colonne au lieu de s'effectuer par ligne. 

XDRAW (OU DRAW) : En Basic, pour utrlrser XDRAW ou DRAW, il est necessaire d'indiquer le 

numero de la forme dons la table, et aussi de l'adresse de cette table 6 
I'APPLE (pointeurs SE8-E9). En langage machine, il suffit de placer dans X la partie basse de l'adresse 
du premier octet de la forme et dons Y so partie haute. Les pointeurs SE8 et E9 ne son! pas utilises. 
Par contre, avont de tracer une forme, il est indispensable de positionner le curseur ($F41 1). 



Pour obtenir un damier 
plus compact (comme 
celui trace par le pro- 
gramme de Maurice CHA- 
VELLI, page 3), il suffit de 
majorer le nombre de 
lignes : ($346 : C9 IB) et 
de n'ajouter que 7 pts par 
ligne : ($33E : 69(37). 
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DAM. DEMO 

1 PRINT CHR* (21): HGR : HGR2 : TEXT : HOME 
3 PRINT GHR* <4> U BL0AP DAMIER" 
5 HC0L0R= 3: R0T= 9: SCALE= 1 

7 POKE 49232, 8 : POKE 49234,0: POKE 49237,0: POK 
E 49239, 9 

9 POKE 236,64: CALL 768: REM TRACE HGR2 
11 POKE 775, ABS C PEEK (775) - 1): POKE 792,8 + 
PEEK (775) 

13 POKE 49232,0: POKE 49239, 0: POKE 49236,8: POK 

E 239,32 
15 CALL 768: REM TRACE HGR 
17 IF PEEK (49152) < 128 THEN 7 
19 POKE 49168,6; PRINT : TEXT 

21 UTAB 23; PRINT "(M)ENU DE DISQUETTEclG " ; : GE 

T R*: PRINT : HOME 
23 IF R* = "M* THEN PRINT CHR* <4> B RUN MENU , Dl 



727E 
P4<?E 
D7CB 

8728 
664F 

6C14 

31E3 
8331 
C24C 
D8D8 

A4DB 

259D 



GUY-HACHETTE 



DAMIER 
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4 
5 
6 
7 
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EQU 
EQU 
EQU 
EQU 
EQU 
EQU 



(ASSEMBLAGE PROCODE) 
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06 
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08 
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09 
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18 
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TABLE DE FORA 
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34B . 


36 


36 


36 


6E 


24 


24 24 


6C 36 




354 : 


36 


36 


6E 


24 


24 


24 24 


00 





Position horizontale de la forme. 
Nombre de formes par ligne. 
Position verticale de la forme. 
Nombre de rangees. 
Positionne ie curseur. 
Trace la forme (X.Y). 



Initialisation. 



Nombre de formes horizontales. 

Nombre de lignes ? 
Pair ou impair ? 
Pair : on saute, 

Sinon 8 de plus horizontalement 
que I on stocke 
et une forme de mains. 
Partie basse dans X. 
Partie haute dans Y. 
Position verticale dans A. 
Et curseur en place. 
Adresse du premier octet 
de la forme dans Y,X. 
XDraw fait le reste. 
Plus 16 horizontalement. 
Annulation de retenue. 



Sans retenue : saut. 
Partie haute eventuelle. 
Une forme en moins. 
Suite jusqu'd inclus. 
Position verticale majoree 
de 8 (damier normal). 

Ne pas oublier le nombre 
de lignes. 
Est il egal 6 24 ? 
Inferieur ; encore une. 
Sinon c'est termine. 



voir as coots 

DANS LE BAS DE 
LA PAG£ 7. 
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i'ww DAMIER! page suivontej 
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TREMPLIN MICRO 
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* DAMIER1 

* 


(ASSEMBLAGE PROCODE) 
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Position horizontale de la forme. 
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Nombre de rangees, 
Positionne le curseur. 
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Trace la forme (X,Y). 
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XDraw fait le reste. 
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TABLE DE FORME(S) : UN CARRE 












53 










34B 


: 36 


36 


36 


6E 


24 


24 24 


6C 36 




Pour sauver ce programme : 
BSAVE DAMfE Rl.A S300 , L 92 
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HEX 


3636366E2424246C3636366E2424242400 


Pour utiliser DAMIER1 , modifiez 


a ligne 3 de DAM, DEMO mais surtout sa ligne 1 1 . qui devient : POKE 769, ABS|PEEK(769) - 1) 
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OUY-HACHETTE 



DAMIER RAPIDE 



Essoyez aussi cette routine. Vous eonsta- 
terez qu'elle nutifise pas XDRAW, it mais 
I'affichage (simule) d'un caractere gra- 
phique : le carre. Celui-ci est represents 
par une serie de $7F. Dans la demo, on 
remptace successivement la voleur S7F 
par des valeurs allant de $0 a... $7F, 
d'ou la production de divers ecrons. (On 
peut interrompre le programme en pres- 
sant ESCAPE). 



10 PRINT CHR$ (21): HGR2 : HCOLOR = 3: PRINT CHRS 

(4)"BL0AD DAMRAP" 
15 CALL768:GOSUB45 

20 FOR I = fl TO 127: POKE 800,1: CALL 768: GOSUB 45: 

NEXT 
25 HOME: TEXT 

30 VTAB 22; PRINT "(M)ENU DE DI5QUETTE ";: GOSUB 45 
35 IF RS = "AA" THEN PRINT CHRS (4)"RUN MENU,D1" 
40 HOME: END 

45 CALL - 198: GET RS: PRINT;IF R$ <3>CHRS (27) THEN 

RETURN 
50 POP: GOTO 25 
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91 


2A 


29 
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31 
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STA 
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34 
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36 
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37 
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C8 




38 
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21 


39 




CPY 


333 : 


90 


D5 


40 




BCC 
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IB 


41 




LDX 
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42 
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(ASSEMBLAGE PROCODE) 



$18 ; Poinleur ligne. 

$21 ; Largeur fenetre. 

$23 ; Bos de fenetre. 

$28 ; Adresse basse colonne 1 . 

$2A ; Pointeur ligne de destination. 

$E6 ; Drapeau page HGR ($20/40). 

$FC22 : On utilisera VTAB + 2, 

$300 ; 

£$00 ; Registre X = Q. 

X passe dans A. 

VT ; Pointeur ligne. 

VTAB+2 ; Positionnement. 

£$00 ; Registre Y 6 zero. 

BASL ; Transfert de la partie 

BAS2L ; basse, puis de la partie 

BA5L + 1 . haute, mais apres, 

£$03 ; AND 0000001 1 et ORA $E6 

HPAG : ($7 devient $43... 

BAS2L+1 : $4 devient $40. etc.). 

VT : Pointeur ligne dans A. 

; Bit dans la retenue. 

BCL1 : Si C = (pas de retenue), 

BAS2L ; on n'incremente pas. 

£500 ; X = 1 : compteur. 

£$7F ; Carre plein = 8 fois $7F. 

(BAS2L),Y ; Ecriture HGR ou HGR2. 

; Annulation de la retenue. 

BAS2L + 1 : Partie haute dans A 

£$04 : majoree pour le point 

BAS2L + 1 : suivant. 

: Ne pas oublier pointeur. 

£$08 ; Est-on 6 8? 

BCL2 ; Non : encore un point. 

: On trace un carre sur 

; deux done Y + 2. 

WNDWDTH ; A-t-on termine la ligne ? 

BCL3 ; Non : passons d I'autre. 

VT : VT dans X. 

; VT = VT + 1. 

WNDBTM ; Est-ce la derniere ligne ? 

BCL4 ; Non : encore une autre. 

; Oui : termine ! 



(Suite page 12) 



BSAVE DAMRAP. A$300,L$3D 
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DAMIER.VC 



Essayez enfin cette derniere routine, 
plus compacte (26 octets), mais proche 
de la precedente. Constatez, grace d la 
boucle de la ligne 30 (on peut en sortir 
par ESCAPE) ('importance de la valeur 
initiale de X ($304). Peut-etre est-il pos- 
sible de faire encore plus court : rien ne 
vous tnterdit d'essayer ! 

Remarque ; Pour que cette routine fonc- 
tionne, il faut que I'adresse $E5 
soit 6 0,,, ce qui nest pas le cas apres 
DAM. DEMO... d'oii le POKE 229,0 (qui donne le 
premier car re blanc). Un POKE 229.1 permet 
de demcrrer avec un carre noir, 



1 TEXT : HOME : PRINT CHR$ (21 ) : POKE 229,0 

20 FORI = 768 TO 793: READ R: POKE \,R: NEXT 

30 FOR I = 31 TO I STEP - 1: POKE 772,1: GOSUB 70: 
CALL 768; NEXT 

40 GOSUB 70: TEXT 

50 VTAB 22: PRINT "(M)ENU DE DISQUETTE ";: GET R$: 
PRINT : IF R$ = "M" OR R$ = "m ,r THEN PRINT CHR$ 
(4) "RUN MENILDT" 

60 HOME: END 

70 CALL - 198: POKE 49168,0; WAIT 49152,128,127: POKE 
49168,0: IF (PEEK (49152)) < > 27 THEN RETURN 

80 TEXT: POP: GOTO 50 

90 DATA 32,216,243,162,31,169,127,192,120,208,1,200,145, 
229,200 200,192, 249,208,243,230, 230,202,16,242, 96 
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LDX 
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LDA 
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$030C 
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E5 


STA 
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CO 


F9 


CPY 


£$F9 


312 


DO 


F3 


BNE 


$0307 


314 


E6 


E6 


INC 


$E6 


316 


CA 




DEX 
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10 


F2 


BPL 


$030B 


319 


60 
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; 
i 



HGR2 (a la sortie : Y = 0). 

Compteur pour partie haute de I'adresse ($E6). 
Pour obtenir un carre plein. 

Si Y est different de 0, pas decrementation. 

Y = Y + 1. 

Une ligne du carre. 

Ne pas oublier qu'il s'agit d'un damier ! 

Si Y est different de $F9 on continue. 

Sinon partie haute de I'adresse incremented, 
et compteur decrements en consequence. 
On poursuit (de $40 a $5F). 
Retour. 



BSAVE DAMIER.VC,A$300,L$1A 



Une collection de petites routines indispensables : 

• CLINS D'OEIL AU 65C02 DE L APPLE (avec dIsque ,te) 

• ROUTINES LM POUR G5C02 ET 6502 ^ 

Ces recueils regroupent des programmes publies dans Tremplin Micro, 
mais presentent aussi diverses routines originales, faciles a mettre en 
ceuvre a partir du Bask (bulletin de commande a la fin de la revue). ■ 
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GUY-HACHETTE 



UTILITAIRE 



DOS 3.3 



ProDOS 




VISUALISER 

une police graphique 



version 2 



Seconde version d'urte routine permetfant de vlsualiser, sur Tun des ecrans graphiques 
de I'Apple, les 96 caracteres d'une police classique (768 octets). Nous donnons ici le 
source de CAR.VIS2. II ne differe de CAR.VISl (dont on trouvera les codes plus loin) que 
par la presence de la ligne 32 : — EOR $7F. 



Pour obtenir un afflchage nor- 
mal, il faut : EOR $00... car 
EOR $7F afftche les caracteres 
en mode inverse, Les ufilisa- 
teurs dun moniteur couleur 
savent que les resultats ne sont 
malheureusement pas extraor- 
dinaires en mode normal et 
inacceptables en mode inverse. 
Par contre, avec une police spe- 
ciale (voir Tremplin Micro n°l2), 
on obtient une visualisation cor- 
recte en mode normal. 



CAR. DEMO 



]Q TEXT : PRINT CHR$ (21); HGR2 ; HCOLOR = 3: PRINT CHR$ 
(4)"BL0AD CAR.VIS1": PRINT CHR$ (4)"BLOAD FG,A$600Q" 

15 CALL 768: GOSUB 40 

20 HOME: TEXT 

25 VTAB 22: PRINT "(M}ENU DE DISQUETTE ";: GOSUB 40 
30 IF R$ = "M" THEN PRINT CHR$ (4)"RUN MENU r DI " 
35 HOME : END 

40 CALL - 198: GET R$: PRINT : RETURN 



* CAR.VISU2 (ASSEMBLAGE PAGE PROCODE) 

1 * 









2 


Carac 


EQU 


$06 


Nombre de caracteres. 








3 


Lgn 


EQU 


$07 


Pointeur ligne. 








4 


Wndwdth 


EQU 


$21 


Largeur fenetre ($28). 








5 


Basl 


EQU 


$28 


Adresse basse colonne 1 . 








6 


Bas2l 


EQU 


$2A 


Point, ligne destination. 








7 


Hpag 


EQU 


$E6 


Drapeau HGR - $20, HGR2 = $40. 








8 


Adrf 


EQU 


$5FF8 


Adresse fonte moins 8 








9 
10 


Vtab 
* 


EQU 


$FC22 


On utilise Vtab + 2. 








11 




ORG 


$300 










12 


* 








300 


A2 


00 


13 




LDX 


£$00 


Index X a zero. 


302 


86 


06 


14 




STX 


Carac 


Et zero pour Carac. 


304 


8A 




15 


BCL6 


TXA 




X passe dans A, 


305 


85 


07 


16 




STA 


Lgn 


puis dans pointeur ligne. 


307 


20 


24 FC 


17 




JSR 


Vtab + 2 


Curseur. 


30A 


AO 


00 


18 




LDY 


£$00 


Registre Y a zero S. V.P. (suae page \t 



TREMPLIN MICRO 
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30 C : 


A5 


28 




19 


BCL5 


LDA 


Basl 




Adresse partie basse passee 




30E : 


85 


2A 




20 




STA 


Bas2l 




dans Bas2l, puis partie 




310 : 


A 5 


29 




21 




LDA 


Basl + 1 




haute dans Bas2l t mais apres 




312 : 


29 


03 




22 




AND 


£$03 




AND 0000001 1 el ORA $20 ou 


40 


314 : 


05 


E6 




23 




ORA 


HPAG 




($7 = $43 — $4 = $40 — $5 = 


$41..) 


3T6 : 


85 


2B 




24 




STA 


Bas2l + 1 




pour adresse HGR ou HGR2. 




318 : 


A2 


08 




25 




LDX 


£$08 




Registre X = 8 (compteur). 




31A : 


EE 


26 


03 


26 


BCL2 


INC 


BCL3 + 1 




Adresse basse incrementee. 




31 D : 


DO 


03 




27 




BNE 


BCL1 




Si le resultot nest pas 0, 




31 F : 


EE 


27 


03 


28 




INC 


BCL3 + 2 




sinon on incremente partie haute 


322 : 


CA 






29 


BCL1 


DEX 






X = X— 1, 




323 : 


D0 


F5 




30 




BNfc 


BCL2 




Si X different de Q, encore. 




325 : 


BD 


F8 


5f 


31 


BCL3 


LDA 


$5FF8.X 




Au depart, X = 0. 




328 : 


49 


7F 




32 




EOR 


£$7F 




$7F = INVERSE — 00 = NORMAL. 


32A : 


91 


2A 




33 




STA 


($2A),Y 




Ecriture. 




32C : 


1 8 






34 




CLC 






Annulation de la retenue. 




32D : 


AS 


2B 




35 




LDA 


Bas2l + 1 




Partie haute mojoree de $4 , 




32F : 


69 


04 




36 




ADC 


£$04 




pour ecriture du point 




331 : 


85 


2B 




37 




STA 


Bos2l + l 




suivant du coractere. 




333 : 


E8 






38 




!NX 






X = X + 1. 




334 : 


E0 


08 




39 




CPX 


£$08 




Si X plus petit que 8, 




336 : 


90 


ED 




40 




BCC 


BCL3 




on n a pas termine. 




338 : 


E6 


06 




41 




INC 


Carac 




A-t-on passe tous les 




33A : 


A5 


06 




42 




LDA 


Carac 




caracteres de lo police ? 




33C : 


C9 


60 




43 




CMP 


£$60 




II yen a $60 (96). 




33E : 


BO 


OC 




44 




BCS 


BCL4 




Si on o termine : vers fin. 




340 ; 


C8 






45 




(NY 






Sinon on saute un espace 




341 : 


C8 






46 




1NY 






pour plus de clarte. 




342 : 


C4 


21 




47 




CPY 


Wndwdth 




Ne pas depasser la limite. 




344 : 


90 


C6 




48 




BCC 


BCL5 




C'est le cas ? suite BCL5. 




346 : 


A6 


07 




49 




LDX 


Lgn 




Sinon on recupere le nombre 




348 : 


E8 






50 




1 N X 






de fignes et on le majore de 




349 : 


E8 






51 




1 N X. 






2 pour plus de lisibilite. 




34A ; 


DO 


B8 




52 




BNE 


BCL6 




Suite. 




34C ; 


A9 


F8 




53 


BCL4 


LDA 


£$F8 




Remise en etat de l adresse 




34E ; 


8D 


26 


03 


54 




STA 


BCL3 + 1 




pour une autre fonte 




351 : 


A9 


5F 




55 




LDA 


£$5F 




(inutile si lo routine est 




353 : 


8D 


27 


03 


56 




STA 


BCL3 + 2 




rechargee a chaque fois) , 




356 : 


60 






57 




RTS 






Retour ou Basic. 




BSAVE CAR 


VIS2,A$300.L$57 




















CAR.VIS1 


BSAVE CAR.VIS1 AS300.LS57 




300 : 


A2 


00 


86 


06 


8A 


85 07 


20 24 


FC 


AO 00 A5 28 85 


2A 


310 : 


A5 


29 


29 


03 


05 


E6 85 


2B A2 


08 


EE 26 03 DO 03 


EE 


320 : 


27 


03 


CA 


DO 


F5 


BD F8 


5F 91 


2A 


18 A5 2B 69 04 


85 


330 : 


2B 


E8 


E0 


08 


90 


EF E6 


06 A5 


06 


C9 60 BO 0E C8 


C8 


340 : 


C4 


21 


90 


C8 


A6 


07 E8 


E8 E0 


09 


90 B8 A9 F8 8D 


26 


350 : 


03 


A9 


5F 


8D 


27 


03 60 








■ 
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GUY-HACHETTE 



IMPRIMER UN CRAPHIOUE 



P 



OUR mener a bien I'impression d un graphique il faut, entre 
autres choses, avoir compris le role de la carte interface, car 
c'est souvent elle qui fait tout echouer. 



I imi tons-nous aux cartes Apple (carte parallele, ou 
Super-Serial). Supposons que votre carte soit sur le 
slot I, En assembleur, la methode classique pour 
transmettre des donnees a I'imprimante consiste a : 
|. Placer I'odresse du slot, (c'est-a-dire $C100) dans 

les octets $36 et $37 en page zero : $36 devra rece- 

voir £$Q0 ef $37 devra recevotr £$C1 . 
2. Envoyer a l imprimante un flux d'octets par la 

routine COUT ( = $FDED). 

Por exe mple : LDA £$C1 

JRS SFDED provoque fecriture de 
A sur votre papier, 
Ce flux d'octets transite par la carte, qui a un droit de 
regard sur les valeurs quelle transmet a I'impri- 
mante. Droit legitime et benefique si vous imprimez 
votre roman. Droit abusif et cotastrophique si vous 
imprimez {ou tentez d'imprimer) un graphique. 
En effet, si le dessin du graphique comporte, en un 
point quelconque, un assemblage de points corres- 
pondent oux valeurs SQD ou $8D {retour chariot) ou 
aux valeurs $09 ou $89 (Control -I), lo carte va imme- 
diatement se sentir concernee, 
Apres retour chariot, elle ajoute "Line feed" ($0A), 
Cet octet supplemental re decale tout et fausse la 
signification du flux d'octets que recoit l imprimante. 
Quant au Ctrl-I, la carte ne le transmet jamais d 
I'imprimante. Elle le garde dans ses profondeurs, et 
elle attend la suite, qu'elJe interprete comme un ordre 
d elie donne. Les consequences sont imprevisibles. 
Generalement, vous ossisterez d une danse freneti- 
que de l imprimante, qui se mettra a ejecter des 
metres de papier, en ecrivant ici ou Id quelques corac* 
teres bizarres, uniquement pour gacher vos feuilles. 

ReWICde ; "Shunter" la carte (elle ne I'a pas vole), 
en plagant directement vos octets sur 
$CO90 (carte parallele) ou sur $C098 (carte Super- 
Serial), En outre vous devrez, apres I'envoi de chaque 
octet, foire une petite boude d'attente, pour remplo- 
cer les routines qui, dans la carte, verifient que 
limprimante est libre et peut recevoir I 'octet suivant. 
Done, pour transmettre 6 I'imprimante les octets du 
graphique (et uniquement ceux-la), lorsque Ac con- 
sent la valeur d transmettre, remplacez $FDED par : 



STA $C090 (si carte parallele en slot 1 ) 
STA SC098 (si carte Super-Serial en slot 1 ) 
LDA £$2D 

JSR SFCA8 (boucle d'attente fonction de Ac. Tester 
la bonne valeur a prendre sur Taccumulateur, 
variable selon la rapidiJe de I'imprimante entre 

£$22 et £S2F). Madeleine HODE out eur de GribouiMo. 



SUR apple lie, essayez cette petite routine : 

18 PRINT CHR* <4)"PR£1': PRINT : PRIN 
T CHRf <27)"n"i PRINT CHR* (9>"896 
N"s FOR I = 768 TO 785: READ C: POK 
E I ,Cs NEXT 

28 READ C: POKE 773, C: IF C - Q THEN 6 


39 PRINT CHRt < 27) J ' 06032" \ 

40 CALL 768:X = X + 1 : IF X < 18 THEN 
30 

58 PRINT ;X = 0: GOTO 20 

69 PRINT : PRINT CHR* <4)"PR£0" 

70 DATA 162,32,160,16,169,0,153,136,1? 
2 , 1 69 , 45 , 32 , 1 68 , 252 , 202 , 208 , 241 , 96 : 
REM Avec une carte parallele, rernpl 
acer 136 par 128 

80 DATA 13,141,9,137,0 



Sous -programme LM (ligne 70) 



300 


A2 


20 




LDX 


£$20 


302 


AO 


10 




LDY 


£$10 


304 


A9 


00 




LDA 


mo 


306 


99 


88 


CO 


STA 


SCO 88. ¥ 


309 


A9 


2D 




LDA 


£S2D 


30 B 


20 


A8 


FC 


JSR 


$FCA8 


30E 


CA 






DEX 




30F 


DO 


F 1 




BNE 


50302 


31 1 


60 






RTS 





Slot * 16 



Carte parallele : $80 



Vous obtiendrei ceci 



TREMPLIN MICRO 



TS 



IVotre bibliotheque 
INFORMATIQUE 



• VARIA TIONS EN C 
(Steve Schustack) 

Avantage non negligeabfe, les lecteurs 
de VARIATIONS EN C peuvent ocque- 
rir la disquette des exemples efudies 
dans fe livre. Ceux-ci presentent un 
autre interet : ils sont presque tous 
extraits d'un meme programme (un 
logiciel de gestion), ecrit sur un IBM PC 
(c'est la que le bat btesse un opplemo- 
niaque convaincu !) ovec deux lec- 
teurs de disquettes, 512 K de RAM, la 
version 2,00 de MS-DOS el la version 
3.00 du compilateur C de Microsoft 
(que je ne connais absolument pos). 
Je constate que nous disposons, sur 
n'importe quel Apple IIGS normale- 
ment canstitue, des mimes etourdis- 
santes possibilites... du moins pour ce 
qui est de la RAM et des lecteurs. Pour 
le reste, j'espere que Ton ne va pas 
nous obliger a utiliser MS-DOS pour 
tater du C : ce serait trop bete. Foi de 
Nestor, je me refuserai toujours a pas- 
ser par des voies aussi tortueuses pour 
satisfaire ma passade pour un langage 
que j'ai pourtant diablement envie de 
m'offrir, Et je vous promets que ces 
VARIATIONS EN C sont rudement ten- 
tantes : presentation,, abandonee des 
matieres et clorte des textes.., C'est 
vrai que c'esl un produit MICROSOFT 
PRESS : une reference a laquelle 
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s'ajoute celle de Cedic Nathan, tout un 
programme ! 

CEDIC NA THAN (Microsoft Press). 
6 Boulevard Jourdan. 750)4 PARIS 

Ut. (I } 45.65.06.06 

• LA PRATIQUE 
D'APPLEWORKS 
(Michel Mossetti) 

5i vous figurez au nombre des heureux 
elus qui ont pu s'offrir un APPLE IIGS 
pour leur petit Noel (30% de remise 
aux membres non largues du Club 
Apple), vous avez pu beneficier d'un 
cadeau nuflement negligeabfe : la ver- 
sion 1 .4 du logiciel integre d' Apple, 
AppleWorks. 

Pour les neophytes, je rappelle que ce 
logiciel comprend non seulement un 
traitement de texte, mais un module 
de gestion de fichiers et de calcul elec- 
tronique (lisez "tableur"). Pour utiliser 
ou mieux ces outils, vous aurez tout 
interet a vous munir dune bonne docu- 
mentation, et notamment celle que 
vous propose Michel Mossetti. Ne sou- 
riez pas : meme s'il est facile de se ser- 
vir d'AppleWorks, c'est encore plus 
commode quand on a sous les yeux les 
200 pages d'un bouquin bourre 
d'exemples (ils sont tous archives dons 
un index des operations). Comment 
etoblir une lettre de relance (elemen- 
toire, mon cher Nestor), un etat budge* 
toire ou un poulet (les jeunes ne savent 
pas a quoi cela ressemble !)... a une 
petite amie ? (Presque) tout y est 5 

MtGRAWMU, 28 Rve Beovmer. 7501 4 PARIS 



• LEXIQUE APPLEWORKS 
(Michel Mossetti) 

J'ai omis de preciser que Michel Mos- 
setti exerce la profession d'informati- 
cien depuis plus de quinze ans (il est 
oussi ingenieur CNAM et enseignant 
au Centre National de la Recherche 
Seientifique). Dans ce second ouvrage, 
l auteur a adopte le dassement alpho- 



betique et il est certain que cefui-ci 
presente bon nombre d'avantages 
pour I'utilisoteur moyen. II supporte la 
version 1 ,3 d'AppleWorks, mais on n'y 
parle evidemment pas de la version 
1.4, celle tournant sur ( Apple IIGS. Ne 
disposant pas, a I'heure ou je redige 
ces lignes, de cette nouvelle version, 
je n'ai pas ete en mesure de la verifier. 
Une chose est certaine : les exemples 
resteront valables, de meme que I'uti- 
lisation des diverses commondes, Une 
remarque au passage : pour une raison 
que j'ignore, je navois jomois eu 
( occasion de compulser des ouvroges 
de McGraw-Hill et j'ai ete tres agrea- 
blement surpris par leur presentation 
claire et serieuse (le format, notam- 
ment, est fort bien choist). A quand les 
outils du GS chez cet editeur ? 

McGRAW-HILL 28 Rue Beaunier. 75014 PARIS 

• SYSTEMES SEXPLOITATION 
DES MtCRO-ORDINA TEURS 
(M. Courvoisier, R. Valette) 

Cet ouvrage presente sous forme con- 
cise les principes fondamentaux des 
systemes d'exploitation utilises dans 
les micro-calculateurs, puis il les illus- 
Ire au moyen de quelques systemes 
tres repandus. Dans la premiere par- 
tie, la presentation des concepts part 
du schema clossique en couches, en 
insistent sur la gestion des taches. pro- 
bleme de base pour I'utilisateur des 
micro-calculateurs dons le domaine de 
la commande des precedes industriels. 
La deuxieme partie decrit quelques 
systemes d'exploitation. Le choix se 
porte sur CP, M et MS-DOS pour les 
systemes de type "ordinateur person- 
nel" bases sur des processeurs 8 ou 16 
bits, iRMX 86 pour les systemes desti- 
nes aux applications temps reel, et 
UNIX qui est un systeme d'exploitation 
lorgement repandu dans le domaine 
universitaire et qui tend a devenir le 
standard des stations de travail basees 
sur des processeurs 32 bits. 

OUNOD. Jtftaeftemy-Dumoncel 75661 PARIS (95 Flic) 
■•»■■'•'••■»■■■■•■■■■»»»■»■■•••»•■ 
GUV-HACHETTE 



FICHIERS 



ProDOS 




Programme demande 



UTILISATION 



dun f ichier direct 



ECRIRE et LIRE 

REMPLACER 

RECHERCHER 



LONGUEUR D UN 
ENREGISTREMENT 

Elle est contenue dans la 
variable L (ligne 105). Elle 
est egale au nombre de 
caracteres plus deux (le 
return final et les guide- 
mets du debut, qui per- 
mettent d'utiliser la pone- 
tuation). 

TITRE PUNCHIER 

II est represents par la 
variable F$ {ligne 105). 

ONERR GOTO 

Ne doit normalement ser- 
vir que pour creer le 
fichier. Par la suite, il est 
souhoitable de supprimer 
cette ligne... ou de revoir 
le traitemenf tres som- 
maire des possibles 
erreurs. Lo longueur est 
testee et les caracteres 
interdits {guillemets et 
divers contr6les) filtres 
par la ligne 165. On peut 
prevoir un DISK FULL 
(code ER = 9) r etc. 

TREMPLIN MICRO 



FIC. DIRECT 



165 



1 10 
1 15 

120 
125 
130 
135 
140 
145 
1 50 
155 
160 
165 



1 70 
175 



130 
185 
190 

195 
200 
205 
210 
215 
220 

225 
230 



TEXT : NORMAL iD* = CHR* (4): PRINT D 
*"PR£3" : HOME : PRINT : PRINT D*"BLQAD 
RECHFIC1 " 

F* = "FICiL = 042s REM Longueur maxim 
um de la donnee + 2 (guillemets au deb 
ut et return a la -fin) 
□NERR GOTO 538 

VTAB 1: INVERSE : PRINT "FICHIER DIREC 
T DE LONGUEUR "L - 2: NORMAL 

• 

GOSUB 450 : REM UERS NOMBRE DE DONNEES 
GOTO 520 

REM ************************* 
REM * 

REM ***********-***■-*■-**--»■*■**--*-*** 

VTAB 4: PRINT Bn j! CALL - 657 
A$ = "*a FOR X ■ 512 TO 509 * L : A — P 
EEK (X); IF A < > 162 AND A > 159 AND 
A < > 141 THEN A* = A* + CHR* (A - 1 
28 > : NEXT 

UTAB 4: CALL - 958: PRINT A* i I F A* = 
" " THEN POP : GOTO 520 

UTAB 22: CALL - 368s PRINT ■ <C>ORRECT 
<R>EFAI RE ";s GET R*i PRINT : IF Rt = 
M R" THEN GOSUB 190: GOTO 160 
IF Rl < > "C" THEN 175 
RETURN 

VTAB 5: POKE 1403,L - 3s PRINT ■/" : RE 
TURN 

R EM * * * * * 

REM * * 
REM 

PRINT ; UTAB 4: CALL - 958: FOR I - 1 
TO L - 2: PRINT ; : NEXT : PRINT 
GOSUB 160 
N = N + 1 s PRINT 



>CE2 



573C 
78ED 

B230 
00 3A 
1B49 
0942 
083A 



00 3A 
80 7A 



8E1D 

74A5 



77A1 
9CAB 
63B1 

9E58 
00 3A 



003A 

B48E 
1F47 
0B59 
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235 
240 
245 

250 
255 
260 
265 
270 
275 



280 

285 

298 
295 
300 
395 
316 
315 
328 
325 
330 



335 
340 
345 

350 

355 
360 

365 



370 
375 
380 
385 
390 
395 



405 
410 

415 

420 



GOSUB 478 
PRINT D* 

UTAB is HTAB 32: CALL - 868: PRINT N: 
GOTO 220 

REM ♦*#*»#****###♦*#****■♦♦♦*♦ 
REM ♦ 

REM «*************--***-***-**-*** 

VTAB 22: CALL - 868: INPUT " REMPLACER 

LE NUMERO " ;R$:R = MAL (R*>: IF R > 
N THEN 275 

IF R = THEN GOSUB 455: UTAB 20: PRI 
NT N" enregi strements" : GOTO 275 
PRINT D$ " READ * F$ " , R " R : INPUT A*: PRINT 
D* 

YTAB 4s CALL - 958: PRINT A* 

GOSUB 198: GOSUB 160 

GOSUB 475: PRINT D* : GOTO 520 

REM *****♦♦♦»**♦**«**♦*»♦*♦** 
REM * * 
REM »♦♦*■****■**»♦*»**♦*♦*♦**■** 

0=3: UTAB 22: CALL - 868: INPUT "CH 

AINE RECHERCHEE : c t G ";CH*: IF CHS = " 

THEN 520 

LC = LEN (CHS) 

FOR I ■ 1 TO N 

PRINT D*"READ"F*" ,R" I : INPUT A*: PRINT 
D* 

CALL 768, CH*, A*: IF NOT PEEK (24) TH 
EN GOSUB 360 
NEXT I : GOTO 330 

K> = M + Is UTAB CALL - 958: PRINT 
I ; i HTAB 4: PRINT A* 

IF V = 20 THEN CALL - 198: UTAB 22: 
PRINT "PRESSEZ UNE TOUCHE " J 1 GET R* : 
PRINT :V = 3 
RETURN 

REM *•***##»***♦***♦■***♦*-*♦■-♦♦ 
REM ♦ 

REM ♦ ***♦■»**■*♦**###•*#»»»*»*■*♦ 

VTAB 22: CALL - 868: INPUT 11 LI RE LE N 
UMERO " ;R*:R = UAL <RS): IF R > N THE 
N 40 

IF R$ = " " THEN 529 

IF R = THEN GOSUB 455: UTAB 20: PRI 
NT N" enregi strements" : GOTO 400 
PRINT DVREAD' F*" ,R"R: INPUT A*: PRINT 
D* 

MTAB 4: CALL - 958; PRINT A*: GOTO 48 



E74B 
BF22 

63F8 
003A 



003A 

4E10 

72F7 

6A7F 
A864 
2CCB 
6828 
803A 



003A 



CFB6 
8642 
El DA 

B776 

1FF0 
7146 

57B1 



81D4 
6381 
003A 



003A 

C897 
3392 

36ED 

6A7F 



PRINT D$ 

D$ contient CHR$(4), com- 
monde comprise par te 
DOS et par ProDOS. 
Quand un fichier est 
ouvert, apres une com- 
monde WRITE ou READ, 
ne pos oublier de repren- 
dre la main pour un PRINT 
D$, notamment pour un 
INPUT... sous peine de se 
retrouver dans la na- 
ture ! 



PONCTUATIOM 

On a vu plus haul qui I est 
possible de Putiliser en 
passant par CALL-657 
($FD6F). Ne pos oublier 
que cette routine ne filtre 
pas naturellement les 

mauvais caracteres (con- 
soles divers et ESCAPE). 



CARACTERE INTERDIT 

Ne pas utiliser les guil- 
lemets. 



RECHERCHE 

Elle est effectuee par une 
routine en langage mo- 
chine (voir plus loin). 
Celle-ci vous autorise a 
utiliser indifferemment 
les minuscules ou les 
majuscules. Attention ! 
les caracteres accentues 
conservent par contre 
leur valeur. Sur la dis- 
quette, RECHFIC0 permet 
de differencier les minus- 
cules et les majuscules. 
Pour rechercher un signe 
de ponctuation (normale- 
ment refuse lors de sa 
soisie), tapez par exem- 
pie ; "," ou 



COMPATIBILITE 

Ce programme fonc- 
tionne sous DOS et Pro- 
DOS, mais vous constate- 
rez qu'il se revele beau- 



is 



GUY-HACHETTE 



coup plus performant 

avec ProDOS. Lq recher- 
che, notamment, est plus 
rapide, le tampon autori- 
sant la lecture d'un nom- 
bre superieur d'octets par 
sequence. 

IMPORTANT 

N'oubliez pas que le fi- 
chier direct est gourmand 
en memoire-disquette. Si 
vous fixez la longueur 
d'un enregistrement a 
200, par exemple, le mot 
"Toto" exigera le me me 
nombre d'octets qu'une 
phrase de 200 caracteres. 
Par contre, on accede 
facilement et instantane- 
ment a n'importe quelle 
don nee exi stante. 

NOMBRE 

Fonction de la disquette 
utilisee..* II est stocke 
dans I'enregistrement Q 
et contenu dans la varia- 
ble N. La variable R est 
utilisee pour le numero 
d un enregistrement 6 lire 
ou a remplacer. 



425 
430 
435 
440 
445 
450 
455 
460 

465 

470 
475 
488 
485 
490 
495 

500 

505 
510 
515 
520 



525 
536 
535 
540 
545 
550 
555 
568 
565 
570 
575 
580 

585 
590 



REM ************************* 
REM * 

REM ♦#♦**»*«**■»♦##■»*♦#♦*♦*♦** 

PRINT D* " OPEN " F* " , L " L 
PRINT D*"READ"F$" ,R0" 
INPUT Ns PRINT D*: UTAB 1: HTAB 
RETURN 

D$ "WRITE" F$ " , R0 " : PRINT N 



INT N ! 
PRINT 
N 

PRINT 
PRINT 
PRINT 
PRINT 
i HOME 



D^WRITE'TV ,R"N 
D*"UJRITE"F*" ,R"R 
CHR* <34) + A*: 
D$ " CLOSE" F* 
END 



\ PRINT 
! GOTO 
RETURN 



36: PR 
RETUR 



REM ************************* 
REM * 

REM ♦♦##«#♦♦»*♦»#**##*«■**♦«■*» 

VTA 8 22: PRINT "<L>IRE <E>CRIRE 
MPLACER " <OHERCHER " <F> INc t G 
R* : PRINT : IF R* > 



= CHR* ( ASC <R$) - 

IF R$ = "L" THEN 40 

IF R$ = "E" THEN 

IF R$ = " R" THEN 

IF R$ = "C" THEN 

IF R$ = " F " THEN 
GOTO 520 



CHR* 

32) 



<82) 



<R>E 
; : GET 
THEN R* 



220 
275 
330 
GOSUB 465: 



GOTO 485 



REM ***♦*##**#****#*■***»**#*♦ 
REM * 

REM ♦#****♦***♦*******#■***#»♦ 



IF ER < 



ER = PEEK (222): POKE 216, i 
> 5 THEN 599 

GOSUB 465: PRINT : GOTO 520 

UTAB 22: PRINT D% ; PRINT "ERREUR IMPRE 

MUE " : GOSUB 465: GOTO 485 



3DD 
003A 



003A 
BF0A 
CADE 

7CA1 

EC7A 
D3EC 
3E6F 
7271 
7D46 
8E3B 
00 3A 



80 3A 



2FF1 
4BDB 
7ED4 
81EB 
3CD4 
3F1 6 
0942 
803A 



3A 

ABCD 

3C27 

B72B 



PAGE SUIvWTE: EXPLICATIONS DE <RECKFIC1> 



CODES DE RECHFIC1 (lign* 10a) 



0300 : 


20 


EE 


DE 


20 


E3 


DF 


A9 


62 


Bl 


83 


99 


13 


00 


88 


10 


F8 


E4B5 


0319 : 


20 


BE 


DE 


20 


E3 


DF 


A0 


02 


Bl 


83 


99 


06 


00 


88 


19 


F8 


88A3 


9320 : 


A4 


IB 


Bl 


19 


99 


5E 


03 


38 


10 


FS 


A4 


6 


A6 


18 


CA 


10 


5C52 


9330 : 


04 


E8 


86 


18 


60 


88 


10 


01 


60 


BD 


5E 


3 


Dl 


07 


F8 


EE 


E9B7 


Q340 : 


49 


20 


C? 


41 


90 


10 


C9 


5B 


90 


08 


C9 


61 


90 


08 


C9 


7B 


2ED5 


0350 : 


BO 


04 


Di 


07 


F0 


D8 


E8 


E4 


18 


F0 


Dl 


C8 


D0 


F8 






C689 



BSAVE RECHFIC1.A|300,L$5E 



TREMPLIN MICRO 
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300 


: 20 


BE 


DE 


J5R 


$DEBE ~| 


303 


20 


E3 


DF 


JSR 


$DFE3 


306 


: AO 


02 




LDY 


£$02 


308 


: BT 


83 




LDA 


($83), Y 


30A 


: 99 


18 


00 


5TA 


$0018, Y 


30D 


88 






DEY 




30 E 


10 


F8 




BPL 


$0308 


310 


' 20 


BE 


DE 


JSR 


SDfcBE 


313 


20 


E3 


DF 


JSR 


$DFE3 


316 


AO 


02 




LDY 


£$02 


318 


Bl 


83 




LDA 


($83), Y 


31A 


99 


06 


00 


STA 


$0006, Y 


31D 


88 






DEY 




31 E 


10 


F8 




BPL 


$0318 


320 


A4 


18 




LDY 


$18 


322 . 


Bl 


19 




LDA 


($19),Y 


324 ; 


99 


5E 


03 


STA 


$035E,Y 


327 : 


88 






DEY 




328 : 


10 


F8 




BPL 


$0322 _ 



RECHERCHE D UNE VARIABLE DANS UNE AUTRE 

(routine RECHFIC de FIC.DIRECT) 

CHKCOAA teste la presence de la virgule et 
PTRGET recherche la variable par son nom. 

On sait lire la longueur de la variable a I'adresse 
trouvee en $83-84. La meme adresse +1 et +2 
fournit I'adresse reelle de la chame. 



Memes operations pour la seconde variable. La 
premiere representait la chaTne recherchee, 
celle d la chame dans laquelle on recherche. Le 
choix des adresses $18-18 et $6-8 est arbitraire. 

Longueur de la chame a rechercher dans Y. 

Ecriture des Y octets de cette chame d partrr de 
$35E. On notera que L est en verite egal 6 L + 1 
(0 6 L), ma is c'est sans importance. 



32A : 


A4 


06 


LDY 


$06 


32C : 


A6 


18 


LDX 


$18 


32E : 


CA 




DEX 




32F : 


10 


04 


BPL 


$0335 


331 : 


E8 




INX 




332 : 


86 


18 


STX 


$18 


334 : 


60 




RTS 




335 : 


88 




DEY 




336 : 


10 


01 


BPL 


$0339 


338 : 


60 




RTS 




339 : 


■ BD 


5E 03 


LDA 


$035E r X 


33C : 


Dl 


07 


CMP 


($07), Y 


33E : 


F0 


EE 


BEQ 


S032E 


340 : 


49 


20 


EOR 


£$20 


342 : 


C9 


41 


CMP 


£$41 


344 : 


90 


10 


BCC 


$0356 


346 : 


C9 


5B 


CMP 


£$58 


348 : 


90 


08 


BCC 


$0352 


34A : 


C9 


61 


CMP 


£$61 


34C : 


90 


08 


BCC 


$0356 


34E : 


C9 


7B 


CMP 


£$7B 


350 : 


B0 


04 


BCS 


$0356 


352 : 


Dl 


07 


CMP 


($G7),Y 


354 : 


F0 


D8 


BEQ 


$032E 


356 : 


E8 




INX 




357 : 


E4 


18 


CPX 


$18 


359 : 


F0 


Dl 


BEQ 


$032C 


35B : 


C8 




INY 




35C : 


DO 


F8 


BNE 


$0356 



: 



] 



] 
:i 
] 



Longueur de la grande chaTne dans Y. 
Longueur de la petite dans X. 

X = X - 1 . Jusqu'a X = 0, on saute. 

Co, c'est pour renseigner le Basic. 

Si PEEK(24) = 0, on a trouve A dans B ! 

Y = Y - 1 . Jusqu'a Y = 0, on continue. 

Sinon c'est fini et, $18 contient foujours la longueur de 
la chaTne recherchee... et PEEK (24) n'est pas egal 60. 
COMPARAISON 1 

Si c'est oui, on passe au caractere suivant. 
Ou A devient a et Z... z, on vice-versa. 

Si plus petit que "A", pas de comparoison. 

Si plus petit que $5B (plus grand que "2"), saut 
vers COMPARAISON2. 

Si plus petit que "a", pas de comporaison. 

Si plus grand que "z", 

pas de comparoison non plus. 

COMPARAISON2 

Si egalite. vers caractere suivant. 



On reajuste la valeur de Y pour que la recherche 
reprenne 6 Y 4- 1 . 
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SYSTEME D EXPLOITATION ProDOS 



Le dernier-ne des systemes d'exploitation en 
loccurrence ProDOS, suscite cbez bon nombre 
de lecteurs protiquant 1 'Apple It, certaines reti- 
censes a I'emploi. Cet article o la tache de fami- 
liar iser lulilisateur debutant ou averti, avec les 
programmes systemes et lui dormer tous les 
ingredients pour une meilleure utilisation de 
ProDOS, 

ProDOS, Professional Disk Operating System, 
est un ensemble de micro-programmes qui, as- 
socies les uns aux autres, forment un program- 
me systeme, capable de gerer les divers peri- 
pheriques relies a un environnement Apple //. 
C'est une suite d'instructions faisant partie des 
programmes systemes (Operating System), per- 
mettant entre autres, la gestion d un lecteur de 
disquettes d I'aide de comma rides evoluees. Lors 
des differentes manipulations, I'operateur n'a 
pas besoin de s'occuper du deplacement de la 
tete de lecture, ni de se soucier de la gestion et 
de I'ecriture des divers fichiers sur la disquette. 
Ce role est attribue au systeme d'exploitation. 

Comme tout programme (soft), ProDOS occupe 
une place en memoire centrale, suivant ses pos- 
sibility intrinseques. En regie generale, tout 
concepteur de logiciels effectue un compromis 
entre les possibilities offertes par le materiel 
(hard) et le logiciel (soft). Pour le fichier PRO- 
DOS, la memoire se trouve amputee de 12 Ko, 
I'Apple He ou lie repartit d'une facon astucieuse 
cette occupation. Les 12 Ko en haut de la 
memoire sont attribues au fichier PRODOS par 
commutation altemee du systeme et de la ROM. 
Cet espace est normalement occupe par la ROM 
Applesoft et par le Moniteur. En realite, le 
fichier PRODOS occupe 16 Ko, dont 4 Ko sont 
obtenus par ia commutation de la Bank Switched 
Memory — bank 1 et 2, 

ProDOS, developpe par la societe Apple Computer, 
est le dernier ne d une gamme de programmes 
systemes, destine d fonctionner sur la serie des 
Apple //. II permet d'accroitre considerablement la 
sauvegarde de la memoire de masse, par ('utilisa- 
tion d un disque dur. Ce systeme a fait son appari- 
tion officielle debut 1984 avec ia version 1.0 ; une 
nouvelle version revue et corrigee, circule depuis 
debut 1985. Une autre accompagne les logiciels les 



plus recents. La denomination ProDOS recouvre en 
fait (association d'un systeme d exploitation et 
d un programme interface. 



I 



STRUCTURE DU SYSTEME 
D'EXPLOITATION ProDOS 



Le systeme d'exploitation ProDOS se compose : 

— dun fichier PRODOS qui se loge dans la carte 
langage, et regroupe tous les sous- 
programmes en langage machine — MLI — . II 
se trouve sauvegarde sous la forme d'un pro- 
gramme du type SYS, avec comme norm de 
fichier : PRODOS ou KERNEL. 

— d un fichier egalement du type SYS, sous la 
forme XXX. SYSTEM, et qui se loge d I'ancien 
emplacement du DOS 3.3. 

Cheque disquette de demurrage standard Pro- 
DOS comporte au moins deux fichiers communs 
ecrits en langage machine PRODOS et 
XXX, SYSTEM. 

Remarque : XXX. SYSTEM represente un format 
dont les XXX designent un nom de fichier pou- 
vant etre tout programme repondant a cette con- 
vention, par exempie un traitement de texte en 
langage machine. En general c'est BASIC. 
SYSTEM qui est utilise pour la plupart des dis- 
quettes conventionnelles. 



Fichier PRODOS 



Ecrit en langage machine, il renferme tous les 
sous-programmes et routines MLI (Machine Lan- 
guage Interface). C'est le cceur du systeme 
(noyau — KERNEL), permettant de gerer tous les 
fichiers autres que ceux du type AppleSoft. II est 
('equivalent du File Manager et de RWTS du D05 
3.3 ; il occupe I'ensemble de la carte langage (d 
l exception de la zone SD0G0 SD0FF de la bank 
2), ainsi que I'espace $BFG0-$BFFF servant 6 
commuter les differentes parties hautes de la 
memoire, et a recevoir des appels de program- 
mes ou de routines externes. 

PRODOS fut ecrit au deport pour fonctionner sur 
un Apple // de 48 Ko de memoire, (suite page 22) 



TREMPLIN MICRO 
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en se pfacont sous I'adresse $C0OQ, et sur un lie de 
64 Ko, en se placant sur la carte langage. Cette der- 
niere version a ete retenue pour la commercialisa- 
tion, Elle se trouve sur la disquette sous la forme 
dun fichier du type SYS, qui ne peut etre que 
"boote", PRODOS se loge sur les 16 Ko de la carte 
langoge d'un Apple //+ ou en haut de la memoire 
sur un He et un He, et fixe HIMEM a $BF0G. Lors- 
que PRODOS est charge en memoire, les comman- 
des executees sont des commandes PRODOS. Lors- 
que celui-ci recoit une commonde qu'il ne peut pas 
interpreter, il la transmet a I'AppleSoft qui teste so 
validite avant de I utitiser. Si, pour une raison quel- 
conque, lordre n'aboutit pas, un message d'erreur 
sera renvoye par le systeme Basic, 



Fichier basic system 



Ecrit en langage machine, il est I'interface entre un 
programme AppleSoft et le fichier PRODOS. Il per- 
met de passer la main au Basic pour executer des 
commandes de I'interpreteur AppleSoft. II est loge 
aux odresses $9600-$BEFF. Com me PRODOS, 
BASIC. SYSTEM est un fichier du type SYS, unique- 
ment "bootable". BASIC. SYSTEM est sollicite en 
memoire, a chaque fois qu'il s'agit de traiter des 
programmes du type AppleSoft. Lorsque celui-ci est 
charge en memoire centrale, HIMEM est fixe a 
I'adresse equivalente du DOS 3.3 — $9600 — 



I ALLOCATION DE5 BLOCS 
SUR UNE DISQUETTE ProDOS 

Apres le formatage d'une disquette ProDOS par le 
programme utilitaire FILER, celled presente un 
certoin nombre de blocs occupes et de blocs libres. 
Le tableau qui suit reflete I'image type d*gne dis- 
quette apres formatage sous ProDOS, 



Blocs alloues par ProDOS 


Blocs 0-1 


Loader 


Blocs 2-5 


Volume- Directory 


Bloc 6 


Bit-Map 


Blocs 7-279 


Volume- Subdirectory 




Fichiers systemes 




Utilisateur 



Le bloc $02 est generalement designe sous I appel- 
lation Key-Block et les blocs $03 a $05 sont oppeles 
Non Key-Block. 
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Capacite physique d'une disquette 


Pistes 


35 (0-34) 


Secteurs par piste 


16 (0-15) 


Secteurs par disquette 


560 


Bytes par secteur 


256 


Bytes par piste 


4 096 


Bytes par disquette 


143 360 



Capacite logique d'une disquette 


280 blocs par disquette 


deO 6 279(SO00-$117) 


8 blocs par piste 


deOa7($0O-$07) 


1 bloc 


2 secteurs 


512 bytes par bloc 


deO 6511 (S0G0-$1FF) 



Un bloc se divise en deux parties : partie gauche et 
partie droite, Les 256 premiers bytes d'un bloc sont 
ceux de gauche, les 256 bytes suivants, ceux de 
droite. 

Capacite d'une disquette apres formatage : 

Blocs disponibles : 273 blocs 
Bytes disponibles : 139 776 bytes, 

A ce total, il faudra cependant retroncher le nom- 
bre de blocs necessaires pour la sauvegarde des 
fichiers PRODOS et BASIC.SYSTEM, indispensables 
pour demorrer le systeme. 

PRODOS version 1,0.2 : 31 blocs 
BASIC.SYSTEM version 1.0.2 : 21 blocs 
Total = 52 blocs ou 26 624 bytes 

Bytes reellement disponibles : 139 776 - 26 624 = 113 152 bytes. 

I NOTION DE VOLUMI 

I BIT-MAP ET SYSTEM BIT-MAP 

Deux Bit-Map sont disponibles pour le systeme Pro- 
DOS : 

— System Bit-Map — SBM — de la page globale de 
PRODOS, aux odresses $BF59-$BF6F 

Volume Bit Mop — VBM — sur la disquette. 
bloc 6. 



System Bit-Map — ram 48 ko 

Pour le traitement des fichiers texte, ProDOS gere 
automatiquement les pages allouees aux tampons 
memoire par la commonde OPEN. Le programmer 
peut, avant I'implantation d'un programme en 
memoire centrale, solliciter par exempie une routine 
qui pourra fournir la premiere page disponible. 

GUY-HACHETTE 



Implantation d'un programme en memo ire ! 

— II sera au prealable charge au bas de la zone 
memoire non encore utilisee par le systeme. 

— A ce programme sera associe un sous- 
programme Move, qui aura une double tone- 
tion : modifier la System Bit-Mop et fe pointeur 
de HIMEM, puis placer le programme a son 
adresse definitive, 

ProDOS suit les memes regies de chargement, lors 
du boot dune disquette. 



volume Bit-Map — implant e sur la disquette 



C est la table d allocation des blocs d une disquette 
- bloc 6. Une disquette 35 pistes, utilise les 35 pre- 
miers bytes du Volume Bit-Map pour gerer I'occu- 
pation de ses blocs. Chaque type de la table mar- 
que 8 blocs, ce qui fait un total de : 
35 * 8 = 280 blocs. 

La table occupe 51 2 bytes (1 bloc) et peut gerer a la 
limite : 8 * 512 = 4 096 blocs, mais seuls 280 blocs 
sont utilises par les versions actuelles de ProDOS. 
Choque bit represente un bloc : si le bit est a 1, le 
bloc est libre, si par contre il est a Q, le bloc est 
occupe. 



Table d ollocatian des blocs au niveau de la disquette : 

Bloc 06 d'une disquette ProDOS 



Byte S0G = Piste $00 = Blocs $00G-$QG7 



Byte $01 = Piste $01 = Blocs $008 



Byte $02 = Piste $02 = Blocs $010-$017 



Byte $22 = Piste $22 = Blocs $1 1 0-Sl 1 7 



La valeur du byte est donnee suivant la position 
relative dans la table d'occupation, au niveau de la 
disquette ProDOS. 

Representation d un byte : 

Byte $00 
Blocs $GG0-$007 

Le bloc $007 est libre et les blocs $000-5006 occupes. 
Byte $01 

Blocs $008-$00F 89ABCDEF 

111 111 11 = FF 

Les blocs $G08-$G0F sont tous libres. 



ai 2 3 4 5 67 

aoooa oo i - 01 



Duma de la Bit-Map d'une disquette ProDOS 



Le premier byte de la Bit-Mop affiche 01 et designe 
un bloc libre : e'est le bloc 7 de la disquette. Les 
trente-quatre bytes suivants, sont tous position- 



nes a la valeur FF {255 en decimal), les blocs 8 a 279 
sont inutilises (8 * 34 = 272 blocs). Le total des 
blocs libres est : 272 + 1 = 273 blocs. 



Dump de la Bit-Map d 

Block 



une disquette ProDOS 

00 06 



$00 


01 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 




FF 


FF 


FF 


$10 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


FF 


$20 


FF 


FF 


FF 


00 


00 


00 


00 


00 


cc 


00 


00 


00 


00 


00 


00 


00 


$30 


00 


00 


DO 


oo 


00 


00 


00 


00 


00 


00 


oo 


00 


00 


00 


00 


00 


$40 


00 


00 


00 


00 


00 


00 


00 


00 


OG 


00 


00 


00 


00 


00 


00 


00 


$50 


oo 


00 


00 


00 


oo 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


$60 


00 


00 


00 


00 


00 


00 00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


$70 


00 


00 


00 


00 


00 


— — 
00 00 

1 


00 


00 


00 


00 


00 


00 


00 


00 


00 


$80 


00 


00 


00 


00 


00 


00 


00 


00 


CO 


00 


00 


00 


00 


00 


00 


00 1 


$90 


00 


CO 


00 


00 


00 


00 


00 


00 


C'C 


00 


00 


00 


00 


00 


00 


00 


SAO 


00 


00 


oo 


. 

00 


00 


00 


00 


00 


GO 


00 


00 


00 


00 


oo 


00 


00 


5 B0 


00 


00 


00 


DO 


00 


00 


00 


00 


GO 


00 


00 


00 


00 


00 


00 


00 


SCO 


00 


00 


00 


00 


00 


00 


00 


00 


CO 


00 


00 


00 


00 


00 


00 00 


$00 


00 


00 


00 


50 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


SEQ 


00 


00 


00 


DO 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


$F0 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 


00 



ORGANISATION INTERNE DE ProDOS 
TABLES DES MATIERES 

— Volume-Directory 

— Volume-Subdirectory 

ORGANISATION DU FICHIER PRODOS 

— Version 1.0.2 

Par comparison au DOS 3.3, le fichier PRODOS 
n'occupe pas de place bien precise sur la surface de 
la disquette. Pour cette roison, il sera fait refe- 
rence 6 une position relative (0 dans notre cas) par 
rapport a une valeur arbitraire donnee au bloc de 
depart. L'adresse de depart, $2000 dans notre lis- 
ting, est celle ou le fichier PRODOS est implante 
par le Loader au moment du boot de lo disquette et 
juste avant l appel de la routine Move. 

ADRESSES ET VECTEURS DU Mil 

• Routine Move — Relocator, 

Sous-programme pour transferer PRODOS dons lo 
carte langage. 

Blocs 04 : adresses$20Q0-$29FF. 

• RAM Disk-Driver 

Bloc 5: adresses $2A0D-$2BFF 



(suite page 24) 
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— RAM Disk-Driver (64 Ko auxiliaires $0200-$(J3FF). 
Bloc 6 : partie gauche, adresses $2C0Q42C7E, 

— RAM Disk-Driver ($FF00-$FF7E Bonk 1), 
Bloc 6: partie gauche, adresses $2C7F $2CFF. 

— Bytes nuls. 

• Le AALI — Machine Language Interlace. 

Bloc 6 : partie droite, adresses $2DG0-$2DFF. 

— Debut du MLI ($D000-$D0FF Bank 1 ). 
Blocs 7-21 : adresses $2E0O-$4BFF. 

— MLI £$D1 00 SEEFF Bonkl]. 

Bloc 22: partie gauche ; adresses $4C00-$4CFF. 

— Fin du MLI ($EF00-$EFFF Bank 1). 

Bloc 22: partie droite ; adresses $4D0Q-$4DQ5. 

— MLI ($F000-$F005 Bank lj. 

Bloc 22: partie droite ; adresses $4 D06 $4DFF. 

— Bytes nufs. 

• La Page Globole de PRODOS 

Bhc 23 /partie gauche ; adresses $4E00-$4EFF. 

— Page Globule pour appel de PRODOS dans la carte 
iangage adresses $BE00-$BEFF, 

Bloc 23: partie droite ; adresses $4F00-$4FFF. 

— Page Globale du BASIC.SYSTEM (SBF00-$BFFF). 

• Les Interruptions 

Bloc 24 : partie gouche ; adresses $5000-55069. 

— Routine Horloge (SF142-SF1AB), 

Bloc 24: partie gouche : adresses S506A-S5O7C. 

— Date($FlAC-$F20E). 

Bloc 24 : partie gauche ; adresses S507D-$509A. 

— Bytes nuls. 

Bloc 24 : partie gauche ; adresses $509B-$50EB. 

— Interrupt ($FF9B-$FFEB). 

Bloc 24 1 partie gauche ; adresses $50EC-$50F9. 

— Bytes nuls. 

Bloc 24: partie gauche ; adresses $5QFA*$50FF, 

— NMI, IRQ et Reset {$FFFA-$FFFF)> 

Bhc 24 : partie droite ; adresses $51 00451 FF. 

— Bytes nuls, 

• Le Disk-Driver 

Bloc 25 : partie gauche : adresses S5200-$5395. 

— Disk-Driver ($F8G0-$F995). 

Bloc 25: portie gauche ; adresses $5396 $53FF. 

— Donnees du Disk-Driver ($F996-$F9FF). 
Bloc 25: partie droite ; adresses $54G0-$54FF. 

— Table des nibbles (SFA0O-SFAFF). 

Bloc 26 : partie gauche ; adresses $5500 $5572. 

— Bytes nuls. 

Bloc 26 : partie droite ; adresses $5573-$5584. 

— Donnees Disk-Driver ($FB74-$FB84). 

Bloc 26 : partie droite ; adresses S5585-S55FF. 

— Disk-Driver ($FB85-$FBFF). 
Bloc 27 : adresses $5600-$57FF, 

— Disk-Driver ($FC00-$FDFF). 

Bloc 28: partie gauche ; adresses $58O0-58BD, 

— Disk-Driver ($FE00-$FEBD). 



Bloc 28: partie gauche ; adresses S58BE $58FF. 

— Bytes nuls (SFEBE SFEFF). 

• La routine REBOOT 

Bloc 28 : partie droite ; adresses S590G-S59FF. 

— Debut de Reboot ($D100-$D1 FF Bank 2). 
Bloc 29; adresses $5AO0-$5BFF. 

- Routine Reboot [$D20G-$D3FF Bank 2). 

TABLE DES MATIERES PRINCIPAL! 

Le Volume-Directory — Entree du nom d'un Volume. 

Ce type de Directory est implante aux blocs 0002- 
0005 de la disquette. Par comparaison au Subdirec- 
tory, le Volume-Directory ne permet pas sa dupli- 
cation. Le Volume-Directory occupe 4 blocs sur une 
disquette standard au format 5 pouces 1 4, pou- 
vant contenir un total de 51 noms de f ichiers. 

Les quotre premiers bytes de chaque bloc du Direc- 
tory sont reserves pour les pointeurs arriere et 
avant — Backward et Forward. Le pointeur avant 

— Forward Pointer — designe d linterieur du 
Directory, le numero du bloc qui precede son pro- 
pre bloc. 

Le pointeur arriere — Backward Pointer — designe 
a I'interieur du Directory, le numero du bloc qui suit 
son propre bloc. 

Au niveau du Key-Block, bloc 0002, le pointeur 
arriere affuble de la valeur 0000 signifie que c'est 
le premier bloc du Directory. 

Au niveau du bloc 0005, Non Key-Block, le pointeur 
avant affuble de la valeur 0000 signifie que c'est le 
dernier bloc du Directory. 

VOLUME-DIRECTORY 

Key Block Header volume Nome - Block 00 02 

Le premier nom qui figure dans la table des matie- 
res principale (Volume Directory) est celui du 
Volume sauvegarde lors du formatage de la dis 
quette par le programme FILER. Le Volume- 
Directory permet la sauvegarde d'un certain nom- 
bre de parametres particuliers. 

Position Contenu 



$00-$01 



$04 



Pointeur arriere - LByte, HByte : 00 00 , 
0000 signifie que c'est le premier bloc. 

Pointeur avant — LByte. HByte : 03 00 ; 
$0003 pointe le bloc 3 du Directory. 

Storage Type/Name Length. 
4 bits de poids fort qui caracterisent la sau- 
vegarde d'un fichier, 

4 bits de poids faible qui designent la lon- 
gueur du nom du Volume. Exemple : $F6 c u 
F = Fichier Volume et 6 = 6 caracteres. 
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$05-$13 Nom du fichier — USERS. DISK par ex, 

$14-$1B Bytes reserves pour une application 

future. 

$1 C-Sl F Date et heure de la sauvegarde d'un 

nom du Volume-Directory. 

$20421 Versions de PRODOS. 

$22 Access 8yte. Byte d'acces au fichier. 

Exemple : $C3 = Lecture/ ecriture 
permise. 

$23 Nombre de bytes alloues 6 chaque 

entree du Volume-Directory ; 

— 39 bytes pour chaque entree Volume. 

$24 Nombre d'entrees possibles par bloc. 

— 13 entrees par bloc. 

$25-$26 Total des noms de fichiers actuelle- 

ment sauvegardes dans la table des 
matieres ou Volume-Directory : 

— maximum 51 fichiers. 

$27-$28 Pointeur de la Bit-Map 

— 06 00 = O0G6. 

$29-$2A Capocite totale de la disquette — Blocs : 

— 18 01 = 0118 = 280 blocs. 
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VOLUME-DIRECTORY 

Position relative des entrees 
Configuration dune entree 



La suite de la table des matieres, apres la sauve- 
garde des parametres du Volume-Directory, per- 
met la gestion de 51 noms de fichiers. Le bloc 0002 
ou Key Block peut contenir 12 noms de fichiers (13 
moins celui du nom du Volume) et les 3 blocs sui- 
vants, 13 noms chacun, ce qui fait un totol de ; 
(13 * 3) + 12 = 51 noms de fichiers. 



Structure type d'un bloc d'entrees 


Pointeurs avont et arri&re 


4 bytes 


13 entrees de noms de fichiers 


507 bytes 


Total 


51 1 bytes 



Le byte a la position 512 est inutilis£ au niveau des 4 
blocs du Volume-Directory et contient la valeur 00. 

Chaque bloc d une table des matieres se divise en 
un certain nombre d'entrees de noms de fichiers, 
dont chacune peut etre designee par un pointeur 
relatif : pointeur de debut $00 ; pointeur de fin $26 
; total £$27, soit 39 bytes par entree. 



paints d'entrees des noms de fichiers 
dans le Directory -Block 


N° d'ordre des entrees 


Positions 


Hex. 


Dec. 


Entree 1 


$004 


004 


Entree 2 


$028 


043 


Entree 3 


$052 


082 


Entree 4 


$079 


121 


Entree 5 


$OA0 


160 


Entree 6 


$0CF 


199 


Entree 7 


$OEE 


238 


Entree 8 


$115 


277 


Entree 9 


$13C 


316 


Entree 1 


$1 63 


355 


Entree 1 1 


$18A 


394 


Entree 12 


SIB1 


433 


Entree 13 


$1 D8 


472 



VOLUME-DIRECTORY 

Non Key Blocks 
Deuiieme bloc du Directory 
-Block 00 01 

Position Contenu 



$00 -S01 

S02-S03 

$04-$2A 
$2B-$51 



Pointeur arriere — LByte, HByte. Pointe le 
bloc precedent : 02 00 ; 0002 = bloc 02, 

Pointeur avant — LByte, HByte. Pointe le 
bloc suivant ; 04 00 ; $0004 = bloc 04. 



Premiere entree d un nom de fichier, 
Deuxieme entree d'un nom de fichier. 



$1 D8-S1 FE Treizieme entree d'un nom de fichier. 
$1FF Inutilise. 
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Troisieme bloc du Directory 

-BlOCk 0004 



Position conttnu 

$00-$01 Pointeur arriere — LByte, HByte. 

Pointe le bloc precedent : 03 00 ; 0003 
= bloc 03. 

— — — ^— — — — — (suite page 26) 
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$G2-$G3 



Pointeur avant — LByte, MByte. Pointe le 
bloc suivant : 05 00 ; 0005 = bloc 05. 



I-2A 
$2B-$51 

S1D8 S1FE 
$1FF 



Premiere entree d'un nom de fichier. 



Deuxieme entree d un nom de fichier. 



Treizieme entree d un nom de fichier. 



Inutiiise. 



i 



Ouatr ieme bloc du Directory 
-Block 00 05 



Position Contenu 

S0Q-$01 Pointeur orriere — LByte. HByle. 

Pointe le bloc precedent ; 04 00 ; 0004 
= bloc 04. 

$02*103 Pointeur avant — LByte, HByte. Pointe 
le bfoc suivant. Ce pointeur est nul : 
dernier bloc. 

S04 $2A Premiere entree d'un nom de fichier. 
$2B-$51 Deuxieme entree d'un nom de fichier. 



SI D8-$ 1 FE Treizieme entree d un nom de fichier. 
$1 FF Inutiiise. 
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VOLUME-DIRECTORY 

Entree d'un nom de Fichier 



Lo position relative des parametres de chaque 
entree du nom d un fichier dans la table des matie- 
res est donnee par rapport a chaque entree possi- 
ble. Chaque pointeur debute avec la valeur $00 et 
termine avec la valeur $26 (£$27 ou 39 bytes alloues 
a chaque fichier). Chaque bloc peut contenir 13 
noms de fichiers accompagnes de ses caracteristi- 
ques, le byte 512 etant toujours inutiiise. 

Une table des matieres principale peut contenir un 
total de 52 noms de fichiers, le premier nom etant 
reserve 6 celui du nom du Volume de la disquette. 
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Entree d'un nom de fichier 
Positions relatives $00*52 6 



Position Contenu 



Storage Type/Name Length. 



4 bits de poids fort ayant pour valeur la 
caracterisfique de sauvegarde du 
fichier. 

4 bits de poids faible qui designent la 
longueur du nom du fichier. 

S01-SGF Nom du fichier programme — 15 
caracteres maximum. 

$10 File Type. Type du fichier — $0B = BIN. 



$1 1 -$12 Pointe le premier bloc du fichier. 

12 00 = 0012 ; pointe le bloc 



$13-$14 Blocks Used. Nombre total de blocs 

occupes par le fichier : 45 00 = 0045 : 
blocs occupes = $0045. 

$15-$17 EOF Pointer. Longueur d un fichier texte. 

Fin d'un fichier binaire : 55 00 00 = 
$000055 bytes de longueur. 

$1 8-$l B Date & Time. Date et heure de creation 

du fichier. 

Format : 00 00 00 00. 

— 2 bytes pour lo date et 2 bytes pour 
l'heure, avec une carte horloge. 

$1 C-$ I D Versions de PRODOS. 

S1E Access Byte. Parametre d'acces au 

fichier. 

$1F $20 Aux. Info. Information auxiliaire : 
adresse d'implantation du programme 
par exemple. 

$21 -$24 Date 8, Time. Date et heure de la modi- 
fication. 

Format : 00 00 00 00. 

— 2 bytes pour la date et 2 bytes pour 
l'heure, avec une carte horloge. 

$25-$26 Pointe le Key-Block d un Directory 
dans lequel se trouve sauvegarde le 
nom du fichier. 



I 



TABLE DES MATIERES AUXILIAIRE 

volume-Subdirectory 



Cette table des matieres particuliere est souvent 
designee sous les termes Subdirectory, sous- 
catalogue ou encore table des matieres auxiliaire. 
Ce type de fichier, designant cette table des matie- 
res. ne peut etre cree que par la commande 
CREATE. Le nam du fichier Subdirectory se trouve 
sauvegarde dans le Volume-Directory, il pointe le 
Volume-Subdirectory. Ce dernier, appele tres sou- 
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vent Key-Block Subdirectory, occupe au depart un 
bloc. II est possible de sauvegarder dans ce nou- 
veau Volume, des fichiers programmes ou Subdi- 
rectory. Le fichier ainsi cree sera du type D1R et 
aura com me Storage byte la valeur DC, tandis que 
dans le Volume-Subdirectory, le nom du Volume 
aura comme valeur EC. Les quartets D ef E repre- 
sented Storage Type, tandis que le quartet C equi- 
vaut a Name Length. 
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Entree d un nom de volume du subdirectory 
Header-Entry - Key-Block 



Les 4 premiers bytes sont reserves aux pointeurs 
arriere et avant, suivant le meme principe que la 
representation du Volume-Directory. Deux bytes 
pour le pointeur arriere — Backward Pointer — et 2 
bytes pour le pointeur avant — Forward Pointer. A 
la suite, se trouvent les 39 bytes de la premiere 
entree de la table des matieres auxilioire — 
Volume-Subdirectory. 

En opposition au Volume-Directory, le Volume- 
Subdirectory n'a qu'un nombre limite de blocs. 
Lorsque le Subdirectory est cree par CREATE, 
BASIC. SYSTEM + commande Mil, le systeme lui 
attribue un seul bloc. S'il arrive par la suite que 
plus de 13 norm de fichiers doivent y etre sauve- 
gardes, un deuxieme bloc sera chain© au premier 
{nom du Volume-Subdirectory compris). Etant 
donne la structure de chomage d un Subdirectory, 
les blocs ne peuvent en aucun cas se suivre dans le 
sens ascendant. 

Position contenu 



$OO-$01 

S02SO3 
SQ4 



Pointeur arriere — \ 



$G5-$13 
$14-51 B 

S1C-$1F 

$20-$21 
$22 



Pointeur avant — 00 00 = S0QO0. 

Storage Type Name Length. 
4 bits de poids fort qui caracterisent le 
type de sauvegarde, 
4 bits de poids faible qui designent la 
longueur du nom du Volume-Sub- 
directory. 

Nom du Volume-Subdirectory — SUB- 
DIRECTORY par exemple. 
Maximum 15 earacteres. 

Le nom de "u HUSTON !" est sauve- 
garde a cet endroit, mais il n'a aucune 
signification precise. 

Create Date & Time. Date et heure de 
creation du Volume-Subdirectory. 

Versions de PRODOS. 

Access Byte. Parametre d'acces au 
fichier — $C3. 



S23 
$24 

$25 $26 

$27-528 



Longueur d'une entree dans la table 
des matieres — 39 ou £527 bytes. 

Nombre d entrees possibles par bloc 

— 512/39 = 13ou0D. 

Nombre de fichiers actuellement sau- 
vegardes dans le Volume-Subdirectory 

— 01 00 = £S0001 fichier. 



$29 
S2A 



Parenl Pointer. Nurnero du bloc de la table 
des malieres ou est sauvegarde le nom du 
fichier qui pointe ce Volume-Subdirectory. 
02 00 = $0002 = bloc 2, si le nom du 
fichier se trouve sauvegarde dans le bloc 2. 

Parent Entry. Nurnero de Pen tree dans 
(e bloc parent. 

Longueur dune entree dans la table 
des matieres du parent, c est-a-dire le 
Directory dons lequel se trouve le nom 
du fichier Subdirectory. 



| LES BLOCS INDEX 

Sous le systeme d'exploitation DOS 3.3, le bloc 
index (Index Block) est reference sous le terme de 
Track Sector List. 

— 1 bloc index = 2 secteurs = 512 bytes. 

— Une disquette ProDOS est composes de blocs 
de donnees d'une taille de 512 bytes chocun. 

BLOCS REPERTOIRES : Index Blocks. 

II existe deux types de blocs index : 

— Master Block. C est un bloc repertoire principal, qui 
peut poinler 128 blocs repertoires ouxiliaires (Index 
Blocks) dont chacun peut a nouveau pointer 256 blocs 
de donnees. Ce type de bloc pointe toujours un bloc 
index, mais jamais un bloc de donnees dun pro- 
gramme. Un fichier avec un Storage Type de valeur 3 
contient un Master Block qui pointe un ou plusieurs 
blocs index. Cette limitation de blocs index est due 
au maximum de 24 bits alloues au pointeur EOF (lon- 
gueur dun fichier). La grandeur dun tel pointeur 
est : 128 * 256 * 512 = 16777226 = 16 megabytes, 
oil 128 represente le maximum de blocs index, 256 le 
maximum de blocs de donnees et 512 le nombre de 
bytes par bloc. Un Master Block ne se differencie pas 
visuellement d'un bloc index, sa structure interne 
reste la meme. 

— Index Block. Cest un bloc repertoire auxilioire 
encore appele bloc index ; il se compose d'un bloc 
de 512 bytes et pointe un maximum de 256 blocs de 
donnees, Ce type de bloc pointe toujours un bloc de 
donnees. Un fichier avec un Storage Type de valeur 2 
contient un seul bloc index, tandis qu'avec un Sto- 
rage Type 3, la capacife est de 128 blocs index. 
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LES TAMPONS ALLOUES A PRODOS 

FCB, VCBetVBM 

ProDOS sauvegorde en memoire differentes don- 
nees auxquefles les fichiers et les peripheriques 
pourront se referer par la suite. Ce sont outant de 
renseignements places dans des tables bien struc- 
tures, ou chaque element d'une donnee a une 
signification precise. 



Structure et adresses des tables 
— Memory Layout pour un Apple ff — 64 Ko 



$F0Q0-$F0FF $100 (256) bytes pour la sauvegorde des 
variables des sous-programmes MLI. 

$F1G0-$F1FF SlOa (256) bytes pour la sauvegorde du 
prefixe (PREFIX) et du chemin actuel 
(Pathname). 

$F200-$F2FF $100 (256) bytes pour la sauvegorde du 
Volume Control Block (VCB) ; 8 entrees 
maximum, 6 roison de $20 (32) bytes par 
entree. 



$F3Q0-$F3FF 

$F400-$F5FF 
$F600-$F7FF 



$100 ( 256) bytes pour la sauvegorde du 
File Control Block (FCB) : 8 entrees maxi- 
mum, a raison de $20 (32) bytes par 
entree. 



. (512) bytes pour la sauvegorde de 
la Volume Bit-Map (VBM) actuelle. 



(512) bytes pour la sauvegorde des 
Volume-Directory et Volume-Subdirec- 
tory octuels. 



BlOCk — FCB 



C'est un espace memoire reserve pour les entrees 
des fichiers de donnees, ou de Directory ; il se 
trouve aux adresses $F300 SF3FF. Cette structure 
se trouve uniquement en memoire vive (RAM) et 
n'a rien de commun ovec les entrees d'un fichier de 
donnees ou de Directory d une disquette. 
Lorsqu'un fichier est ouvert par la commande 
OPEN, qu'il s'ogisse d un fichier de donnees, de 
Directory ou de Subdirectory, le systeme sauve- 
gorde certaines caracteristiques de ce fichier 6 un 
emplacement memoire appele File Control Block — 
FCB. Divers renseignements sont alors disponibles 
pour ProDOS : le numero du bloc d'entree du 
Volume-Directory, le numero du premier bloc de 
donnees, le pointeur 6 I'interieur d'un fichier 
(Mark), le pointeur de la fin d'un fichier (EOF), le 
byte de reference du peripherique en ligne (Unit 
Number), etc. 

Un fichier de donnees ProDOS est toujours cree por 



la commande MLI CREATE. Le FCB a une capacite 
rnaximale de 8 entrees, ce qui correspond d une 
zone memoire ayant une possibility de sauvegorde 
pour les caracteristiques de 8 fichiers. 

Un maximum de 8 fichiers peuvent etre ouverts 
simultanement sous ProDOS, d'ou le nombre maxi- 
mum de 8 entrees auforisees. Chaque entree 
ampute lo memoire de 32 bytes, ce qui totalise 256 
bytes pour I'espoce memoire olloue a FCB. Si Ton a 
une suite de plusieurs entrees dans la table FCB, 
elles s echelonnent d'une maniere graduelle et pro- 
gressive, c est d-dire que la premiere entree 
debute d l adresse $F30G, la deuxieme entree 6 
radresse $F320, etc. 



Entree d un File control Block 



Poi. Adres. Signification 

$00 F300 File Reference Number. Un byte : utilise 
comme reference Interne du MLI, indi- 
que le numero d'ordre dons les entrees 
de FCB. 

$01 F301 Unit Number - DSSS0000. Un byte : ren- 
seigne le MLI sur le peripherique en ligne. 

$02 F302 Key Block Number. Deux bytes qui indi- 
quent le numero du bloc — Key Block — 
du Directory ou se trouve sauvegorde le 
nom d'un fichier nomme DATA1 par 
exemple. 

$04 F304 Directory Block. Deux bytes qui indi- 
quent le numero du bloc ou se trouve 
reellement sauvegorde I'entree du 
fichier au nom de DATA1 cite comme 
exemple. 

$06 F306 Entry Number. Un byte : DATA2 est la 
deuxieme entree a I'interieur de ce 
meme bloc — DATA2 etant un nom de 
fichier cite comme exemple. 

S07 F307 Storage Type. Un byte : il caracterise le 
genre du fichier DATA ; ce n est en fait 
qu'une partie de Storage Type, et plus 
precisement 4 bits qui sont utilises, Le 
byte pouvant prendre les valeurs suivan- 
tes : SOI . S02, $03, $0D, $0E ou $0F. 

$08 F308 Siatut byte. Un byte : il represente 
I'image binaire de plusieurs donnees 
(Index bloc modifie, bloc de donnees 
modifie, fichier modifie depuis que la 
commande OPEN a ete declaree, etc.), 

$09 F30° Access byte. Un byte : il caracterise la 
facon dont un fichier sera aborde par la 
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SOA F30A 



SOB F30B 



fOC F30C 



SOE F30E 



$10 F310 
S12 F312 
$15 F315 

$18 F318 

$1A F31A 
SIB F31B 

$1C F31C 

SID F31D 
S1F F31F 



suite : ecriture autorisee, lecture seule, 
etc. 

Newline Character. Un byte : il est deter- 
mine par la fonction NEWLINE, et desi- 
gne le dernier caractere a lire dons un 
fichier. 

Buffer Index, Un byte : numero d'ordre 
du tampon dont le pointeur se trouve 
sauvegarde dans la page globale de 
PRODOS. 

Data Pointer. Deux bytes (LByte, HByte) : 
pointent le premier bloc des donnees du 
fichier DATA. 

Index Block Number. Deux bytes (LByte, 
HByte) : cette paire de bytes est nulle si 
le fichier DATA ne possede pas de reper- 
toire des blocs, fichier de moms de 512 
bytes de longueur, sinon les deux bytes 
indiquent le nombre de blocs index. 

First Block. Deux bytes ; c'est le nu- 
mero du premier bloc qui se trouve en 
memoire. 

Pointeur MARK, Trois bytes (LByte, 
MByte, HByte) : pointent lo position rela- 
tive dans un fichier. 

Pointeur EOF. Trois bytes (LByte, MByte, 
HByte) : designent la longueur d'un 
fichier texte, qui correspond a la position 
absolue dans un fichier. 



Blocks Used. Deux bytes (LByte, HByte) : 
designent le nombre de blocs occupes 
par le fichier. 

Un byte inutilise. 

Level. Un byte : utilise par les common- 
des CLOSE et FLUSH : c'est la copie de 
ladresse $BF94 de lo page globale de 
PRODOS, 



Flag Byte — Drapeau, Un byte : prend la 
valeur £$00, pour un fichier ferme et 
pour un fichier ouvert ou modifie. 



Deux bytes inutilises. 



Newline Enable Mask. Un byte de mos- 
que, utilise par NEWLINE (SC9), 



volume control Block -vcb 



Volume Control Block designe les entrees des peri- 
pheriques (drives) en ligne et se trouve aux actres- 



ses SF200-SF2FF. Comme FCB, cette structure 
existe uniquement dans la memoire de I'Apple et 
n'a rien de commun avec les entrees des fichiers de 
donnees ou Directory de lo disquette. 

8 entrees au maximum sont disponibles, et cha- 
cune occupe 32 bytes, ce qui permet au systeme de 
memoriser 8 lecteurs de disquettes. L'occupation 
de I'espoce memoire olloue au VCB est degressive, 
c'est-a-dire que lo premiere entree se fera a 
l adresse $F2E0, la seconde a l adresse SF2C0. etc. 

La raison d'etre de VCB est due essentiellement a 
la notion de Volume des disquettes mises en place 
dans les drives en ligne. C'est ainsi que le nom du 
Volume d une disquette, place en en-tete d un 
Volume-Directory, sera copie aux bytes relatifs 
$Q1-$0F (1-15) de I'entree VCB, tandis que le 
numero de bloc du Key Block sera copie en $16 (22). 



Entree dun volume Control Block - VCB 



Pos. Adres, Signification 

$00 F2EQ Name Length. Un byte : designe la lon- 
gueur du nom d'un fichier. 

$01 F2E1 Name. Nom du Volume-Directory, avec 
un maximum de 15 caracteres. 

SI a F2F0 Unit Number — DSSSGG0G. Un byte qui 
renseigne sur le peripherique en ligne — 
Drive et slot. 

$11 F2F1 Flag Byte — Drapeou. Un byte qui 
informe que le fichier est ouvert ou 
ferme : dons le premier cas le byte pren- 
dra comme valeur ESB0 et dans le second 
cas £S00. 

SI 2 F2F2 Total Blocks. Deux bytes qui designent le 
nombre total des blocs olloues a la dis- 
quette ; c'est la capacite maximale de 
sauvegarde $0118 = 280 blocs pour 
un disque 35 pistes standard. 

$14 F2F4 Free Blocks. Deux bytes qui renseignent 
sur le nombre de blocs disponibles de la 
disquette, 

$16 F2F6 Blocks Number Key-Blocks. Deux bytes 
qui renseignent sur Ja position du Key 
Block — Volume- Directory — ($0002 
normalement). 

$18 F2F8 Deux bytes inutilises. 

$1A F2FA VBM Block. Deux bytes (LByte, HByte) 
qui pointent le premier bloc de la Bit- 
Map — normalement bloc SQO06. 

(suite page 30) 
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$1C F2FC VBM Extent Number. Un byte qui rensei- 
gne sur le numero — va!eur relative du 
bloc de la Bit-Mop ; 00 = premier bloc de 
la VBM. VBM Extent est une configura- 
tion engendree par un Volume qui 
necessite plus d un bloc pour so Bit Map. 

$1D F2FD Un byte inutilise. 

$1E F2FE File Open. Un byte qui design© le nam- 
bre de fichiers ouverls a cet instant. 

$1F F2FF Un byte rnutilise. 



BIBUOGRAPHIE : 

L'auteur signant ses articles sous la plume de Mar- 
eel COTTINI a ecrit un certain nombre de livres trai- 
tant les sujets les plus divers sur rinformatique 
grand public, en porticulier LA PRATIQUE DE 
L' APPLE II. Pormi ses ouvrages SYSTEME PRODOS 
DE L'APPLE H des editions du PS1 est principale- 
ment destine a I'etude du systeme d'exploitation 
ProDOS, ll s'adresse a tous ceux qui desirent sortir 
des sentiers battus de la programmation retro- 
grade. Un livre a lire et a relire. 



Le controle des connaissances sur Apple 

assimil recidive, 
mais cette fois avec I'espagnol 

Qui ne connait pas les fameuses methodes ASSIMIL... et notam- 
ment Le nouvel anglais sans peine ? Qui n'a jamais eu entre les 
mains Tun des populates petits bouquins du fameux editeur 
international ? ASSIMIL est devenu synonyme — et pas seule- 
ment en France — d' auto-apprentissage des langues. II faut 
avouer que les auteurs sont passes maitres dans Tart — 6 combien difficile — d'expliquer la 
prononciation des mots de chaque langue (cela va de l anglais a I'hebreu, mais en passant 
par le chinois, I'arabe, le bresilien, le serbo-croate, I'esperanto... et j'en oublie, tant la liste 
est longue). Naturellement, les cassettes facilitent bien les 
choses, mais j'ai connu un jeune professeur qui se familia- 
risa avec le russe sans autre guide que le manuel. 






J'y viens : il vous aide tout sim- 
plement a controler vos connais- 
sances grace a 16 programmes, 
enregistres sur 3 disquettes et 
vous proposan'i plus de 500 exer- 
cices. Aujourd'hui, ce controle 
concerne I'espagnol, mais la 
meme methode existe en onglais 
(nous en avions d'ailleurs parle il 
y a de cela quelques mois). 

Le but des auteurs est 5 la fois 
simple et ambitieux : vous aider 



a assimiler 87 points de gram- 
moire, orthographe ou vocabu- 
laire de I'espagnol courant. 
d'obord en vous presentant la 
regie correspondante, ensuite en 
vous proposont de resoudre les 
exercices d'appltcation. 

Le logiciel, realise par d'authenti- 
ques pedagogues, prevail bien 
entendu les principaux cas 
d'erreur ce qui le rend d'autant 
plus sympathique. 



R«as«igaementi : 11, rue des Pyramides — 75001 PARIS — Tel. : (1) 42. 60.40.1 
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GUY-HACHETTE 



UTILITAIRE 



DOS 3.3 ProDOS 



Pierre PRiVAT 



BRICO 



~~| NE rapide lecture des lignes 185 6 215 du listage ci-apres vous donnera un avant- 

Ugout des nombreuses possibilites du BRICO (pensez "BRICOLAGE"), programme de 
Pierre PRIVAT (Castres, 81). N hesitez pas a poursuivre voire examen sommaire, en 

1 vous attardant sur les lignes des divers menus de ce programme. Je vous laccorde : 

on peut lui reprocher de pecher par exces de longueur. Vous reconnaTtrez pourtant qu'il 
etait difficile de concevoir un programme a la fois simple et court, mais neanmoins, capable 
de presenter tous les avantages de celui-ci. Et puis, qui vous empeche de supprimer une 
certaine redondance destructions en utilisant les astuces habituelles ? 

Notez au passage, que la dtsquette TREMPLIN MICRO vous evitera lankylose du poignet 
qui — je n'en doute pas — vous guette deja ! 



loo i Ktn ************ BKiLUp par rierre rrc 






PRINT : HTAB 14: 


PRIM '5. - 


-) Calcule 




IMAT, Oct 1986 ******** 






r la quant i W de 


reuetement 


(sols/mur s/ 




185 : 


883A 




plafond)' 






6696 


111 TEXT : PRIM : PRIM CHRf '.4); , BL0AD I 




211 


PRINT : HTAB 14: 


PRIM "6. - 


-> "Convert 




MP.LM* 


5ASB 




ir des unites" 






1369 


115 PRItJT : CLEAR : HOME : LOMEM: 28755 


5E&B 


215 


PRINT : HTAB 14: 


PRIM "7. - 


-> Calcule 




1 28 m = "X u 


99DD 




r des consomnati 


on = " 




99D5 


125 ONERR GOTD 2519 


8C1B 


228 


PRINT : HTAB 14: 


PRIM "8. - 


-> "Termine 




138 D* = CHR1 (4):B1P* = CHRt (?) 


271 C 




p" 






OIEB 


135 PRIM Dlj" PRE 3" : PRINT 


2D8D 


225 


GOSUB 2435: IF REP < 1 OR REP > 8 THEN 




148 MIS = "<ESC> — ) Retour au menu geneYa 






PRINT BIP$: GOTO 


225 




6E85 




F879 


238 


ON REP GOTO 258 , 


^85,615,1158 


,1485,1985, 




145 M2* = "L'uni t« utilise est 1e; " 


2BB6 




2218,2738 






3642 


158 M3* = "ATTEMION: Utilise: le point 4 1 




235 








883A 


a p 1 ace de la yirgule 1 " 


D683 


240 


REM <** PERIMETRES *** 






155 PI = 3.1415^26524 


C8D1 


245 








883A 


168 : 


983A 


258 


T* = "PERIMETRE" 


: GOSUB 1928 




8AEF 


165 REM *** MENU GENERAL ♦** 




255 


VTAB 2: HTAB 38: 


PRIM TALCULER UN ";T 




178 : 


983A 




$ 






B92B 


175 TA = 15:ST = 9 


C9AC 


260 


GOSUB 269B 






9F81 


188 HOME : HTAB 27: PRIKT "8RIC0, AIDE AU 




265 


vTAB 5: KTAB 2?: 


PRIM "1. - 


-> Carre" 


6944 


BRICOLAGE" : GOSUB 26*8 


42BF 


278 


PRINT : HTAB 2?; 


PRIM "2. - 


-> "Rectang 




185 vTAB 5: HTAB 14: PRINT M. — ) Catcule 






le" 






861A 


r un peYimetre" 


2AE4 


275 


PRIM : HTAB 29: 


PRIM "3. - 


-> "Partll* 




198 PRINT : HTAB 14: PRINT "2. — > "Calcule 






logramme" 






C5I I 


r une surface" 


DEFB 


286 


PRINT : HTAB 29: 


PRIM "4. - 


-) Triangl 




1*5 PRINT : HTAB 14: PRINT "3. — > "Calcule 






e" 






53DD 


r un volume" 


1886 


285 


PRINT : HTAB 29: 


PRIM "5. - 


-) Trapeze 




286 PRINT i HTAB 14: PRINT "4, --> Calcule 












E1D6 


r des dosages" 


1BEE 


2H 


PRINT : HTAB 29: 


PRIM "6. - 

IIIHIIHMI 


-) "Cere I e" 


8C37 


TREMPUN MICRO 
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AMBITIEUX, ENORME, 

mais pratique pour un tas de calculs ! 



295 PRINT ; HTAB 26: PRINT Ml* 


MBS 


nt£ 9 IF T3 ( - fl TMPN POTWT Rl 




388 GORJiR 743S* IF RFP ^ 1 DP RFP V A THFN 




r» . uu i u ti J 


tvor 


PR I NT ft I Pi • GOTf! Wft 

r mill DlrTi uUI U ODD 


■?rpr» 


4^R UTAR It > UTAR I 1 !! lUPIfT "1 nnnnniH <w. - 
•♦JO VIHD !!• rtJHp IDi IlMrUi LOngUcUr HlllP C 




305 ON REP GOTO 325 35*5 3*15 36^ 430 47** 


dFrr> 






318 * 


" B JH 


r* ■ OU 1 U *f JO 


D 1 6r 


31 S RFH ##* PFR fAPPF *** 




dee n _ /»< . [") i ro i rdi ftncllD 'J^'^fl « QrtCii 
tJJ r — LI T U ' U f wi! UU5UB c jJo ! bUou 




320 : 




H 747B« RflTn 4Qfl 


Ut JD 


325 HOME ■ HTAB 30 * PRINT T*«' IV IN PARRF" « 
JtJ nm it • nino jd ■ mini i* ( y uro lhrrc. ■ 




dAfl • 
lOO i 




GOSUB 2710 


^9 7 4 


dX^ DEN *** DCD rCDfl C ixx 
Hoj ntrl *** rtKi LtKLLt *** 




330 LTAR Ifl- WTAR IS" FKIPIIT B l nnnnniir rl'iir 
JJv vino lOi nino J J ■ llirUI LL'liyUcJr u Un 




H/o ; 


I0JH 


rnti 7 ■•r« If r < — a turn PPT kit rip 




Hfj Hunt :l* - LIKLUNI-hKfcNLfc . HTAB 27: PR 




v • du i u j on 




INT T$| D UN CERCLE : GOSUB 2710 


C9E7 


T J S p = T t 4- RCTCHR 7S30- Rn^ilR 7470- ROTO 

UJU r U « 1. UUOUD t JOB . UUjUD tTrOt UU 1 U 




4B0 VTAB 11: HTAB 15: INPUT Diametre du ce 




J 




rcle ? ';D: IF D < =0 THEN PRINT BIP 




348 : 


003A 


$: GOTO 480 


8E3E 


345 REM *** PER RECTANGLF *** 




40D r - M Pi! GOSUB 2530: GOSUB 2470: GOT 




350 : 




n ai^ 


EBB 7 


355 HOME s HTAB 16: PRINT T*j" D'UN RECTANG 




49R • 

170 • 


a a oa 


LE OU D'UN PARALLELQGRA/tlF" ■ RO^UR 7718 

1>U WW 1/ WIT 1 niVILLLLUUIvl ■ 1 L_ ■ UU JUL) <f_ f 1 V 




4 YD Ktrl *** SURFACES *** 




UTAR R- MTAR IS" INPUT *l nnrniAiir *? ■■Ifl 
kjov vino ui nino i J ■ inrui Lunyurui • |LU 




job : 


003A 


: IF LO < ■ 8 THEN PRINT BIPS: GOTO 3 

■ » I k V » VII 1 LJ 1 1 IV (111 W J 1 V P WW 1 W W 

60 


4826 


*ifl^ T4 — "CiiDrArc'i anciiD iooa 
jDj 1> - oUKrHtt < UUbUB l7£B 

SI 9 UTAR 3fl • DOTKIT TAI Pill CD UVlC t ,t< ■ men 
jAD n 1 HE JO ■ rKliMl LftLLULcK UNt Jlf! bubU 


ri jn 

51 4B 


365 VTAB 10: HTAB 15: INPUT "Laroeur 9 "-LA 

WWW r 1 ■ I W i U < 111 I ■ LJ A v.' 1 J. 1 1 1 L," 1 LOI UC U 1 ■ Ul 






9E12 


: IF LA < = THEN PRINT BIP$: GOTO 3 




SIS UTAR Si UTAQ *JOi DDTI.iT "I \ T>»nl" 

Jlj VlHd j. nlHD C7l rKln\ I . ) tarre 


6944 


65 


6CD9 


S?fll PRTUT • UTAD ">0i DDIhtT * \ "D«r4<.i.. 

□ZB rKllNl ; nlnio £?: rKlNI ii . — / Kectang 




370 P = (LO + LA) * 2- GOSUB ?*5^fl ■ GO^IIR 74 




i e 


861A 


78: GOTO 355 




DZD PRINT : HTAB 29: PRINT 3. — > Parall* 


375 : 


003A 


i Oyrdirrrie 


C51 1 


380 REM t»* PER. TPIM3LE *** 




S^fl PPTMT • UTAR 70 i POINT *d \ "Triannl 




385 ! 


BB3A 


D 1 


c; "1 r, n 


390 HOME : HTAB 2B: PRINT Ti* n D'lW TRIANfil 

V r W I Ibl Ik ■ III law bki I I H J m J wl T 1 1 \ i n »UL 




S*3S PPTMT ■ UTAP ">Qi PPTKTT "S __\ t» , n », . 




E B ! Gfl^llft 771 fl 


OD 1 1 


R 


El DB 


395 UTAR 9' HTAR IS* INPUT "I nnnn«iir Hu Ur 
<j r */ vine Ti niriD Ui iiirui luiiliucui uu icr 




DDTkfT • UTAD ID. DO Ik IT ■/ \ r---^t-» 

rKlNI : HIAB £t: PRINT 6. — > Cercle 


0C37 


rnt* 9 " >r\ ■ IF 1*1 i = fi TWFN P9INT 
LUlr «LJ. Ir UJ 'i — v 1 ntli rKlNI 




545 PRINT : HTAB 29: PRINT 7. — > Sphlr* 


CA89 


RTPt ■ finTO 
oir*i uu i u J7 j 


L JO J 


□DH PRiNI : HFAB 26: PRINT Mil 




400 UTAP 11' HTAR f 1 ^- IKiPifF "I nnniteur tin 7m 




sss nnciio ^jis* ic dcd / 1 no dcd s t tucki 
□jj bUbub £4^3: ir Ktr \ 1 UK KtP ) / 1 HtN 




e cote 7 ":C2: IF C2 < - THEN PRINT 

• w k/ k t. lUk I Am W L n If 1 1 ll_l « 1 IT | 1 mJ I 




PPTNT RTPt- ftfTTft SSS 
ri\iM( Din< uuiu jjj 


CiBA 


rip*' nnTn 4Afl 

Dirt i UU 1 U toe 


Q7i r\ 


36o UN KtP bUTU 500,616,645,680,715,755,775 


1CA0 


405 "vTAB 13: HTAB 15* INPUT u l nnnupiir rtn 3m 

'ww v i nu 1 J 1 Ml nu 1 W a llil U 1 L_UIiLJU~'JI UU will 




JO J . 


8B3A 


t COtl* 7 ■■f3: IF T3 ( =8 THFN Pf?rNT 




S70 OCM x CI IDC TADDC 111 

J/0 Ktrt *** SUKr . UhKKc *** 




RIP*. ROTn 40S 


R1 97 


j/j : 


003A 






5B0 HOME ; HTAB 29: PRINT Tf; D UN CARRE : 




0: GOTO 390 


OMID 


bUbUB 2710 


F02C 


415 : 


0R3A 


SOS 1 (TAD IQ. LIT AD t d ■ TklDIIT »l -,,.,,», j/,.- 

jdj vihd 10: nlHD id: inpui Longueur d un 




420 REM *** PER. TRAPEZE *** 




cote 7 ;C: IP C < - B THEN PRINT BIP 




425 : 


a a va 

w u on 


A . r*nTn roc 

%, GOTO 585 


A357 


430 HOME : HTAB 29 • PRINT Tt ,a D'lN TRAPF7F 




5^0 S - I * C: GOSUB 2570: GOSUB 2470: GOTO 




GOSUB 2710 




JOB 


7064 


435 UTAB 8: HTAB 15: INPUT "Lonoueur lir co 




j7j : 




t* ? "jCl: IF CI < =0 THEN PRINT BIP 




680 REM »## SURF. RECTANGLE *»* 




*: GOTO 435 


F544 


605 : 


003A 


440 VTAB 9: HTAB 15: INPUT "Longueur 2me co 




610 HOME : HTAB 29: PRINT 1%]' D'UN RECTANG 




U ? *]C2; IF C2 < =0 THEN PRINT BIP 




LE': GOSUB 2710 


FB54 


%: GOTO 440 


D73F 


615 VTAB 8: HTAB 15: INPUT 'Longueur ? ";L0 




445 MTAB 10: HTAB 15: INPUT "Longueur 3me c 




: IF LO < =0 THEN PRINT BIP*: GOTO 6 





OUY-HACHETTE 



15 


7229 




UB 2478 : GOTO 755 


B75C 


628 vTAB 18 i HTAB 15: INPUT "Largeur ? ■ }LA 




778 




983A 


i IF LA < = B THEN PRINT BIPt: GOTO 6 

I (t 1 UI i W II IU 1 1 l\ 1111 WmT ml W I WW 1 W W 




775 


REM *#t SURF, SPHERE *»* 




2B 


65D3 


7B8 




8B3A 


625 S = LO * LA: GOSUB 2578: GOSUB 2479: GO 




7B5 


HOME : HTAB 28; PRINT Tt; a D'UNE SPHERE 




TO 618 


i e 




': GOSUB 2718 


A6CA 


638 : 


883A 


798 


ITAB 8: HTAB 15: INPUT "Diametre ? *jD: 




6lS f?FM *** SlfRF PAPAI I Fl DfiRArWF #** 






IF D < =8 THEN PRINT BIPt: GOTO 79B 


9591 


646 : 


983A 


795 


S = (PI * <<D / 2) 4 2)) * 4: GOSUB 257 




645 HOME • HTAB 26* PRINT Tt:" D'' UN PARALLE 






8: GOSUB 2478: GOTO 785 


78AE 


L OGF^tiE" * GOSUB 2718 


2A1 1 


888 






659 V7AB 8: HTAB 15: INPUT "Lonoueur 7 " :LQ 




885 


REM »*♦ UOLUMES *** 




: IF LO ( =8 THEN PRINT BIPt: GOTO 6 




8i e 




883A 


58 


4828 


815 


Tt - "VOLUME 9 : GOSUB 1928 


741 A 


655 '/TAB 18: HTAB 15: INPUT "Hauteur ' ".HT 

KJ f 1 41 AVI 1 1 1 1 1 w * v ■ 111! U 1 1 1 U U "i l_ WJ 1 Bill 




B28 


HTAB 29: PRINT " CALCULER UN *jTt: GOSUB 




: IF HT ( =8 THEN PRINT BIPt: GOTO 6 






2699 


57D5 


55 


BB95 


825 


vTAB 5: HTAB 28; PRINT "1. — > "Cube" 


42B7 


669 S = LO * HT: GOSUB 2578: GOSUB 2478: GO 




838 


PRINT : HTAB 28: PRINT "2, — > "Par all* 




TO 645 


BB17 




It>pjpede rectangle" 


861E 


665 : 


88 3A 


835 


PRINT : HTAB 28; PRINT "3. — > "Prisme 




678 REM *#* SURF TRIANGLE *** 






droit cL base paral l£locjr amine " 


B635 


675 : 


983A 


848 


PRINT : HTAB 28: PRINT "4. ~ > "Prisme 




6B8 HOME : HTAB 29: PRINT Tt:" D / UN TR1ANGL 






droit a base triangulaire* 


DB32 


F B ! fifTCIIR 771 (1 


FA1 

L_r1 1 J 


845 


PRINT : HTAB 28: PRINT "5. — > "Prism* 




i^R^ UTAR R' HTAR IV INPUT "Rs^e ":RS: IF 

DOiJ- vino On n i nu i j» iiir u i unsr iuji it 






droit a base trapezoidal e" 


1466 


rr < =o THFN PRINT RlPt 1 GOTH ^85 




858 


PRINT : HTAB 28: PRINT "6. — ) "C/lindr 




698 UTAH IB: HTAB 15: I NPLT "Hauteur 7 H :HT 






e 


76B8 


: IF HT < =8 THEN PRINT BIPt: GOTO 6 

4 & ■ III i V II 11^ 1 1 I'-llll l_> 11*1 L. W 1 w w 




855 


PRINT : HTAB 28: PRINT "7, — > "Sphere" 


9488 


98 


9 OB 4 

f 1/wT 


868 


PRINT : HTAB 17: PRINT Mlt 


9688 


695 S = <BS * HT> / 2: GOSUB 2576: GOSUB 24 




865 


GOSUB 2435: IF REP < 1 OR REP > 7 THEN 




78: GOTO 688 


CD5E 




PRINT BIPt: GOTO 865 


EF8E 


78B : 


88 3A 


878 


ON REP GOTO 898,928,968,1888,1048,1885, 




785 REM *** SURF TRAPEZE *** 






1128 


DC41 


718 : 


083A 


875 




883A 


715 HOME : HTAB 29; PRINT Tt;' D'UN TRAPEZE 




888 


REM *** VOL. CUBE *** 




GOSUB 27 IB 

P W W W W W mm 1 • V 


220A 


885 




883A 


728 '/TAB B: HTAB 15: INPUT "Grande base ? ' 




898 


HOME : HTAB 28: PRINT T*; H D'UN CUBE" : 




:GB: IF GB < =0 THEN PRINT BIPt: GOT 

I UU 1 m 1 ww . Lr II 1 1_J 1 ' 1-4 1 1 1 ha ' m 1 w 1 WW' 






GOSUB 271 B 


0ADD 


n 7?n 


F37D 


895 


VTAB 18: HTAB 15: INPUT "Longueur d'un 




775 l/TAR 9' HTAR 1V INPUT "Petite base 7 " 






cote ? w \ti IF C < =8 THEN PRINT B1P 




.po. ic pr / - q Tupj ppiijrr rips* rant 






t: GOTO 895 


9F5B 


n 

U /CJ 


DTHr 


980 


V • t ' 3: GOSUB 2685: GOSUB 2478: GOTO 




* JO V 1 MO 10 < til HO 1 Ji ir»rUI naLJlcUr jMl 






890 


E45C 


i ic ut / — q TupKi PCTWT RTP*- RflTfl 7 
• IP HI v — 1 ncn rwiixi Djr». uuiu / 




985 




883A 




RRFF 
Dor r 


918 


REM *** UOL. PARALLELEPIPEDE RECTANGLE 




735 S = ((G6 * PB) » HT) / 2: GOSUB 2578: G 

i W W W % \ L/'w* ' 1 V r " III/ / b ■ WW WWW faV 1 u ■ <-r 






**# 




OSUB 2478: GOTO 715 

uv« u *- i r w i ww i v i a w 


EFFC 


915 


. 


883A 


748 : 


883A 


928 


HOME : HTAB 21: PRINT Tt;" D'UN PARALLE 




745 REM *** SURF, CERCLE »** 






LEPIPEDE RECTANGLE" : GOSUB 2718 


D9B5 


"J CD 


a a 'da 


97S 


1 TAR o. LIT AD 1^. TKIPIIT '1 nnmimr ? ' -1 fl 
vino Oa nino Ui iiirui Lunyucui ,uu 




755 HOME : HTAB 29: PRINT Tt \ " D'UN CERCLE' 






i IF LO < =8 THEN PRINT BIPt: GOTO 9 




: GOSUB 2718 


A76D 




25 


3620 


768 'vTAB B: HTAB 15: INPUT "OiamHre ? ";D: 




938 


ITAB 9: HTAB 15: INPUT "Largeur ? 1 ;LA: 




IF D < =8 THEN PRINT BIPt: GOTO 769 


8BBE 




IF LO < =8 THEN PRINT BIPt: GOTO 939 


9FBD 


765 S = PI * ((0 / 2) fc 2>: GOSUB 2578: GOS 




935 


UTAB 18: HTAB 15: INPUT "Hauteur ? ";HT 




TREMPLIN MICRO 
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: IF HT < = 8 THEN PRINT BIP*: GOTO 9 
35 

948 M = (LO * LA) * KT: GOSUB 2685: GOSUB 2 

478: GOTO 928 
945 : 

956 REM *** VOL. PRISME DROIT BASE PARALLE 

LOG. *** 
955 ! 

968 HOME : HTAB 16: PRINT T*;' D'UN PRISME 
DROIT A BASE PARALLE LOG RAMIE' : GOSUB 27 



965 

978 

975 

9BB 
9B5 



995 
1886 

1885 



ieif 



1815 



1828 

1825 
1838 

1835 



VTAB 8; KTAB 15: INPUT "Longueur parall 
elograirme ? ";LO: IF LO < =8 THEN PR 
INT BIP*: GOTO 965 

VTAB 9: KTAB 15: INPUT 'Hauteur paralle 
Togrmmt ? ";HP: IF HP < =8 THEN PRI 
NT BIP*: GOTO 978 

VTAB 18: HTAB 15: INPUT 'Hauteur du pri 
sme ? ' ;HH: IF HH < =8 TH^I PRINT BI 
Pi: GOTO 975 

V = (LO * HP) * HH: GOSUB 2685: GOSUB 2 
478: GOTO 968 

REM »** UOL. PRISME DROIT BASE TRIANG. 
##* 

HOME : HTAB IB: PRINT T*;" D'UN PRISME 
DROIT A BASE TR10NGULA1RE" : GOSUB 2719 
VTAB 8: HTAB 15: INPUT "Base triangle ? 
■;BA: IF BA < =8 THEN PRINT BIP*: G 
OTO 1885 

VTAB 9: HTAB 15: INPUT "Hauteur triangt 
e ? ■ ;HT: IF HT < =8 THEN PRINT BIP* 
: GOTO 1818 

VTAB 18: KTAB 15: INPUT "Hauteur du pri 
sine ? *;HH: IF HH < =8 THEN PRINT BI 
P*: GOTO 1815 

V - (CBA I KT) / 2) * HH: GOSUB 2685: G 
OSUB 2478: GOTO 1888 



REM *** 



VOL. PRISME DROIT BASE TRAPEZ. 



1845 



1855 



HOME : HTAB 18: PRINT T*;" D'UN PRISME 
DROIT A BASE TRAPEZDIDALE 1 : GOSUB 2718 
VTAB B: KTAB 15: INPUT "Grande base tra 
peze ? ■ ;GB: IF GB < =8 THEN PRINT B 
IP*: GOTO 1845 

VTAB 9: HTAB 15: INPUT 'Petite base tra 
ptze ? ";PB: IF PB < =8 THEN PRINT B 
IP*: GOTO 1858 

•vTAB 18: KTAB 15: INPUT "Hauteur trapez 
e ? ";HT: IF KT < =8 THEN PRINT BIP* 
: GOTO 1855 

VTAB 11: HTAB 15: INPUT "Hauteur du pri 



<?586 

3FBD 
983A 



113* 



523E 



58DE 



IE82 



DB9B 

A8C8 
893A 



8B3A 

7172 

BA43 
8475 

AA8D 

8E1C 
883A 

883A 

876F 

3921 
CD4A 
E8A3 



sme ? ";HH: IF HH < = 8 THEN PRINT BI 

PI: GOTO 1868 
1865 V - C((GB + PB) * HT) / 2) * HH: GOSUB 

2685: GOSUB 2478: GOTO 1848 
1878 : 

1875 REM *** VOL. CYLINDRE *** 

1086 ! 883A 

am 
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1885 HOME s HTAB 38: PRINT T*j" D'UN CYLINDR 

E": GOSUB 2718 
1898 VTAB 8: HTAB 15: INPUT "Diametre cylind 

re ? ';D: IF D < =8 THEN PRINT BIP*: 

GOTO 1898 ED35 
1895 VTAB IB: HTAB 15: INPUT 'Hauteur cylind 

re ? ";HC: IF HC < = 8 THEN PRINT BIP 

*! GOTO 1895 
1188 V ■ <«0 / 2) ' 2) * PI) * HH: GOSUB 26 

85: GOSUB 2478: GOTO 1885 

1185 : I03A 

1118 REM *** UOL. SPHERE *»* 
1115 : 

1128 HOME : KTAB 38: PRINT T*;" D'UNE SPHERE 

': GOSUB 2718 36C3 
1125 VTAB 18: HTAB 15: INPUT 'Diametre spher 

e ? *;D: IF D < =8 THEN PRINT BIP*: 

GOTO 1125 4882 
1138 U = <<D * 3) * PI) / 6: GOSUB 2685: 60S 

UB 2478: GOTO 1128 
1135 : 883A 
1148 REM *** DILUTIONS/DOSAGES *** 
1145 : 883A 
1158 HOME : PRINT : HTAB 23: PRINT "CALCULER 
DES DOSAGES ET DILUTIONS' : GOSUB 2698 
1155TA=18 FEC6 
1168 l/TAB 7: HTAB 28: PRINT "I. —) "1 * X' 
1165 PRINT : PRINT : HTAB 28: PRINT '2. — ) 

"X T C58D 
1178 PRINT : PRINT : KTAB 28: PRINT '3. --> 

"X produit / Y produit" 
1175 PRINT : PRINT : KTAB 17: PRINT Ml* 
1188 GOSUB 2435: IF REP < 1 OR REP > 3 THEN 

PRINT BIP*: GOTO 1188 
1185 ON REP GOTO 1285,1278,1335 
1198 : 

1195 REM *»* DOSAGE 1 + X #** 
1288 : 

1285 HOME : HTAB 28: PRINT "DILUTIONS DE FOR 

ME 1 • X" 771A 

1218 KTAB 15: PRINT '1 part ie de concentre" p 
our X parties de diluant.': GOSUB 2698 

1215 VTAB 5: KTAB 18: INPUT "Unit* utilised 
? ";U* 

1228 VTAB 7: HTAB 18: PRINT M3* 
1225 VTA8 18: HTAB 18: INPUT "Vileur de X ? 
";X: IF X < = 8 THEN PRINT BIP*: GOTO 
1225 4574 

\mmmmmmmMmmmmmmmmmmmmmmmmmmmmmmmmmmmmMMmmm*Mmmmmwmmmm 

GUY-HACHETTE 
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1238 12: HTAB 19: INPUT "Quanti t* total 
e a obtenir ? ';Q: IF Q < =9 THEN Pft 
1KT BIP*; GOTO 1239 

1235 2 = X + t:QC = Q / Z:QC = INT <QC * IB 
6; / 188:QD = Q - QC 

1246 VTAB 15: HTAB 10: PRINT "II uous 4audra 
done : * 

1245 PRINT : HTAB 13: PRINT ";QC;" ";U$; D 

de concentre, et" 
1258 HTAB 13: PRINT "- " ; QD ; " ";U*;" de di lu 

int.": GOSUB 2470: GOTO 1158 
1255 : 

1268 REM *#* DOSAGE X 7. *** 
1265 : 

1278 HOME ; HTAB 38: PRINT "DOSAGES DE FORME 
X 7* 

1275 KTAB 16: PRINT "Diluer X Z d'un produit 
dans une quantity donneV: GOSUB 2699 
1288 VTAB 5: KTAB 19: INPUT "Unite utilise 
? ';U* 

1285 PRINT : HTAB 19: PRINT M3* 

1299 UTAB 18: KTAB 19: INPUT "Valeur de X ? 

■jXi IF X < =9 THEN PRINT 8IP*: GOTO 

1298 

1295 VTAB 12: KTAB 18: INPUT "Quant ite a Uq 
uelle on ajoute le produit 9 ";Q: IF 
< = 8 THEN PRINT BIP*: GOTO 1295 

1398 D = (Q / 199) * X:D ■ INT (D * 1888) / 
1898 

1385 UTAB 15: KTAB 19: PRINT "11 uous faudra 

done aj outer:' 
1318 PRINT : KTAB 13: PRINT "- ";D;" ";U*;' 

de produi I, et" 
1315 PRINT : HTAB 18: PRINT *Vou5 aurez au t 

otal: ";Q * 0;* ";U*;" de solution.": G 

OSUB 2478: GOTO 1158 
1328 : 

1325 REM *** DOSAGE X / Y *** 
1338 : 

1335 HOME : HTAB 28: PRINT ' DOSAGES DE FORME 

X UNITES POUR Y UNITES* 
1348 KTAB 19: PRINT "Ajouter X unites d'un p 

roduit par Y unites d'un autre produit" 

: GOSUB 269B 
1345 VTAB 5: HTAB 19: INPUT "Unite utilised 

? ";U* 

1359 PRINT : HTAB 18 1 PRINT M3* 

1355 VTAB 9: HTAB til INPUT "Valeur de X ? 1 

;X: IF X < =8 THEN PRINT BIP*: GOTO 

1355 

1368 VTAB 11: HTAB 18: INPUT "Valeur de Y ? 
■ ;Yi IF Y < =8 THEN PRINT BIP*: GOTO 
1368 

1365 VTAB 13: KTAB 19: INPUT "Quantity total 
e de produit a obtenir ? ';Q: IF Q < = 

■■■■■■■■■IMMUI 

TREMPLIN MICRO 



7291 
F5E9 
C7C4 
3399 
1D8C 



8887 

2385 

FAB 2 
A883 

3976 

7192 
9781 
D2FE 
FC95 

188C 
893A 

II3H 
85 Q 8 

61DF 

FAB2 
A883 

E458 

9C7B 



8 THEN PRINT BIP$: GOTO 1365 
137B QX = (Q / (X * Y)) * X:QX = INT (QX * 

188) / 1B8:QY = Q - QX 
1375 PRINT : HTAB 18: PRINT "11 uous laudra 

done: 1 

1388 PRINT : HTAB 13: PRINT "- ";QX; B ";U$;" 

de produit X, et" 
1385 HTAB 13: PRINT 'jUY;' tt ;U*j u de prod 

ui t Y." : GOSUB 2478: GOTO 1158 
1399 : 

1395 REM *** ROULEAUX REVET EM ENT *** 
1488 : 

1485 HOME : PRINT : PRINT : HTAB 23: PRINT ■ 
CALCUL DE LA OUWITE DE REVET EMENT : G 
OSUB 2698 

1418 TA = 1 

1415 VTAB 9: HTAB 28: PRINT M. — > "Murs (P 

apters peints)" 
1428 PRINT : PRINT : IJTAB 28: PRINT "2. — ) 

"Plafond ou sol (rouleaux)" 
1425 PRINT : PRINT : HTAB 28: PRINT B 3. — > 

Sols et murs (carrel ages)" 
1438 PRINT : PRINT : HTAB 17: PRINT Ml* 
1435 GOSUB 2435: IF REP < 1 OR REP > 3 THEN 

PRINT BIP$: GOTO 1435 
1448 ON REP GOTO 1445,1645,1735 
1445 T* = "MURS (Papier pelntr 
1458 HOME : KTAB 29: PRINT T*: HTAB 12: PRIN 

T M3*: GOSUB 2698 
1455 VTA8 5: INPUT "Hauteur des murs <en m) 

? ";H: IF H < =8 THEN PRINT BIP*: GO 

TO 1455 
1468 m = H * 198 

1465 VTAB 7: INPUT "Pt>i metre de la piece <e 
n m> ? ";P: IF P < = 8 THEN PRINT BIP 
I: GOTO 1465 

1478 VTAB 9: INPUT "Total des largeurs des o 
uvertures (en m) ? ";0: IF < 8 OR > 
= P THEN PRINT BIPI: GOTO 1478 

1475 PP = <P - 0> * 188 

1488 VTAB 12: INPUT "Longueur d'un rouleau ( 
en m) 7 ";L: IF L < =9 THEN PRINT Bl 
P$: GOTO 1488 

1485 LO = L * 188 

1498 VTAB 15: INPUT "Largeur d'un rouleau <e 
n cm) ? ";LA: IF LA < = 8 THEN PRINT 
BIPI: GOTO 1498 

1495 VTAB 18: INPUT "Distance entre motifs i 
dentiques sraccord^ (en cm) ? ";MT: IF 
MT < 9 THEN PRINT BIP*: GOTO 1495 

1588 LE = m * 5 + MT: REM *»* Longueur d'un 
14 *#* 

1595 NR = INT (LO / LE): REM **» Nbre de If 

s/rouleau *»* 
1519 CH = INT (LO - (NR * LE)): REM *** Chu 



AB8B 
AE88 
9896 

CC76 

2D38 
8B3A 

683A 

3F84 

9F96 

DF5B 

2A2C 

7E1C 
DE7C 

8334 
568C 
81A5 

D8C4 



77F 
7?a 



90BF 



8D8D 
F884 



61 8D 
6712 



B7F7 

6768 
575C 
658B 
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te/rouleau *** 

1515 VTAB 21! HTAB 29: PRINT "Est-ce correct 
<Q/N) ? ';: GET Rt 

1528 IF R$ = *N' Oft RI = V THEN 1445 

1525 IF RI = "O" OR RI = 'o' THEN 1535 

1538 PRINT BIPI: GOTO 1515 

1535 IF LO = LE - 5 THEN HOME : PRINT i VTA 
B IBs HTAB 24: PRINT "ATTENTION: Trauai 
1 de precision »':NR = I:CH« B;LE = LO 
: FOR 1 = 1 TO 2B: PRINT BIPI;; NEXT : 
GOTO 1545 

1549 IF NR = < B THEN PRINT BIPI: HOME : V 
TAB IB: HTAB 28: PRINT 'TRAVAIL IMPOSSI 
BLE: Papier trop court 1 ': GOTO 1625 

1545 HOME ? HTAB 29: PRINT Tl: GOSUB 2690 

1550 PRINT : PRINT "Par rouleau, vous aurez 
done: - 

1555 PRINT : HTAB 13: PRINT "- " jNR ; • U B 5 : 
IF NR > 1 THEN PRINT "s, et* 

1566 IF LO = m OR CH = THEN PRINT : HTAB 
13: PRINT '- aucune chute": GOTO 157B 

1565 PRINT : HTAB 13: PRINT ";CR|" cm de 
chute' 

1578 NL = INT (PP / LA): IF (PP / LA) > NL 

THEN NL = NL ♦ 1 \ REM *** Nbre de Us n 

kessaire *** 
1575 RO = INT (NL / NR) :RE = (NL / NR) - RO 

: REM ### Nbre rlx nfcessaire et reste 

#** 

15BB FL = 6 : REM **# Mise a 6 du ¥ 1 ag de res 
te *** 

15B5 IF RE THEN RO = RO + 1:FL = 1 : REM **# 

Flag si reste non nul *** 
1590 RL = (RO * NR) - NL:RP = '<(RL * LE) + C 

H) / 168: REM *** Reste papier (LeVChu 

tes) *** 

1595 PRINT s PRINT Ml vous faudra done ";N 

L;' Us, soit:" 
1686 PRINT : HTAB 13: PRINT ";RO;" roulea 

u";: IF RO ) 1 THEN PRINT "k" 
1685 IF CH = AND FL = 8 THEN PRINT : PRIN 

T 'Et vous n' aurez pas de reste": GOTO 

1625 

1616 PRINT : PRINT : PRINT "Et il vous reste 
ra:' 

1615 IF CH ) ttID (RO - FL) > 6 THEN PRINT 
: HTAB 13: PRINT "- B ;R0 - FL;' chute(s 
) de ";CH;" cm": PRINT 

1620 IF FL THEN HTAB 13: PRINT une longu 
eur de ';RP;' m" 

1625 GOSUB 2470: GOTO 1485 

1630 : 

1635 REM *** PLAFOND/SOL *** 
1640 ; 

1645 HOME : HTAB 32: PRINT " PLAFONDS et SOLS 



IF2F 

6BB6 

94BD 
F0BF 
0D6A 



1B4C 

CE7E 
9BF9 

C7D0 

5C7B 

9149 

9CM 

13E8 

51FB 
C392 
F1E8 

4623 
0C9E 
B7E8 



4B11 



BA2C 

D38D 
A12C 
883A 

603A 



■: GOSUB 2698 
1658 VTAB 8: HTAB 20: PRINT "1. — ) Pose en 

longueur': VTAB 12: HTAB 20; PRINT "2. 

— > Pose en largeur" 
1655 GOSUB 2435: IF REP ( I OR REP > 2 THEN 

PRINT BIP*: GOTO 1655 
1668 ON REP GOTO 1665,1676 
1665 LI = ' Pose en longueur": GOTO 1675 
1678 LI = ' Pose en largeur" 
1675 Tl - * PLAFONDS ET SOLS' 
1688 HOME : HTAB 22: PRINT TI;LI: GOSUB 2698 
1685 VTAB 5; INPUT "Longueur de piece Cen m) 
? ";L0: IF LO < = 8 THEN PRINT BIPI: 

GOTO 1685 
1698 LO = LO * 188 

1695 VTAB 7: INPUT 'Largeur de ! a piece (en 
m) ? *;LA: IF LA < =8 THEN PRINT BIP 
I: GOTO 1695 

1786 LA = LA * 186 

1785 IF REP = I THEN M = L0;PP = LA 
1718 IF REP = 2 THEN ffi = LA:PP = LO 
1715 = 8: GOTO 148B 
1720 : 

1725 REM *** CARRELAGE *** 
1738 : 

1735 HOME ; HTAB 28: PRINT "CARRELAGES SOLS 
ET MURS': HTAB 12: PRINT M3I: GOSUB 269 
6 

1748 VTAB 5: PRINT " CARREAUX : ■ 

1745 VTAB 6: INPUT "Longueur (cm): ";LC: IF 

LC < = 8 THEN 1745 
1750 VTAB 7: INPUT 'Largeur (cm): *;WC: IF W 

C < = 8 THEN 1758 
1755 VTAB B: INPUT "Largeur des joints (mm): 

•;J:J = J / 18: IF J < 8 THEN 1755 
1768 SC = (LC + J) » (WC + J):SC = INT <SC 

* 1B8) / iee 

1765 VTAB IB: PRINT "Est-ce correct (O/N) ? 

*]: GET W 
1770 IF R$ = "N* OR Rt = 'n' THEN 1735 
1775 IF Rt = '0" OR RI = V THEN 1785 
1788 PRINT 61 Pi: GOTO 1765 
17B5 PRINT : VTAB 13: HTAB 1: CALL - 958: V 

TAB 12: HTAB 1: PRINT 'SURFACE A CARREL 

Eft: 1 

1798 VTAB 14: INPUT "Longueur (m): n ;LO: IF 

LO ( =6 THEN 1790 
1 795 VTAB 15s INPLTT 'Largeur ou hauteur (m): 

' jLAi IF LA < =8 THEN 1795 
1680 VTAB 26 i KTAB 1: CALL - 86B: VTAB 20: 

HTAB 1: PRINT * Longueur/1 argeur correct 

es ? (O/N) ";: GET RI 
1805 IF RI = "N" OR RI = "n" THEN 1785 
1810 IF Rt = '0' OR RI = V THEN 1828 
1815 PRINT BIPI: GOTO 1868 



1931 



CCF3 

6537 
7112 
6507 
28C6 
11FO 
BA9D 



DA68 
5861 



CB3S 
BD45 
7790 
6391 
4561 
083A 

963A 



F6E9 
ECA4 

5C4C 

5C90 

B35D 

6B30 

7073 
69BF 
E6C6 
8771 

57BC 
0358 
52DD 



8992 
5FC4 
FE8C 
3967 
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1829 S = 10 * LA:S = tNT <S * 188) / 188:ST 

= ST + S 6B1 3 

1825 VTAB 12: KTAB 2t: CALL - 868: PRINT ST 
ir.2" 

1839 VTAB 28: KTAB 1 : CALL - 868: VTAB 28: 

HTAB I : PRINT "Voulez-vous ajouter une 

surface <0/N> ? "ji GET Rf 
1835 IF R* = 'N" OR Rf = "n" THEN 1845 
1848 IF Rf = '0' OR Rl = "o" THEN 1785 
1845 PRINT s VTAB 28: KTAB 1 : CALL - 868: V 

TAB 28 i KTAB h PRINT "Tout est-M corr 

ect ? <Q/N) ';: BET Rf 
1858 IF Rf = "N" OR Rl = "n" THEN ST = 6: GO 

TO 1735 CB4B 
1855 IF R$ = "0" OR Rf = "o" THEN 1865 
1868 PRINT BIPf: GOTO 1845 
1865 ST = ST # 18988 :NC = INT (ST / SO: IF 

CST / SO > NC THEN NC = NC ♦ 1 
1878 HOME : KTAB 28: PRINT 'CARRELAGES SOLS 

ET MURS' : GOSUB 2698 
1875 ^TAB 4s PRINT "Vous devez carreler ";ST 

/ 18888;' m2" 
1888 PRINT : PRINT : PRINT 'II uous faudra a 

u moins ';NC;' carreau";: IF NC ) 1 THE 

N PRINT 'x" 

1885 PRINT : PRINT : PRINT 'de dimensions: ' 

;LC;" x "jUCj" cm' 
1898 PRINT : PRINT : PRINT "avec des joints 

de: ";J * 18;' mm.' 
1895 PRINT ; PRINT : PRINT 'Mais je wous con 

seille d'acheter que 1 ques carreaux de p 

lus pour pallier les': PRINT 'ewentuels 
accidents de dfcoupe " 
1988 GOSUB 2478 : ST = fo GOTO 1735 
1985 : 

1918 REM *** SAIS1E UNITES *** 
1915 : 

1928 DIM U*<4):Uf(l> = "nm" !U$<2) = - cm":Ut( 

3) = "m\Ui<4> = 'km' 
1925 HOME : HTA8 32: PRINT "CHOIX DE L UNITE 

" : GOSUB 2698 
1938 VTAB 5: KTAB 23: PRINT "Quelle unite" uo 

ulez-vous ut i 1 i sec ?" 
1935 PRINT : ?9m : HTAB 31: PRINT '1 "-> 

"mill i metre" 
1948 PRINT : HTAB 31: PRINT "2 > "centime 

tre" 

1945 PRINT : HTAB 31: PRINT "3 > ""metre" D42i 
1958 PRINT : HTAB 31: PRINT "4 "-> "kilomet 
re' 

1955 GOSUB 2435 

1968 :U = UAL <R$) : IF U < 1 OR U > 4 THEN 

PRINT BIPf: GOTO 1955 
1965 US = US(U): HOME : RETURN 
1978 : 



1975 REM *** CONVERSION UNITES *»* 
1 9S6 : 

1985 DIM UfC2,6> 

1998 U$<l p l) = "imi"iUf<l,2) = "cm"sU$(l ( 3) = 
■m * :U*< i r 4> = u km":USU,5) = "1 B sU*(l 
,6) = B g »|UIC1,7) = :U*<I ,8^ = "C 

1995 Uf(2,l> = "in':Uf<2,2) = 'ft':Uf(2,3> = 
•yd' t :U»<2,4> = "M 'iUI<2,9) = 'pt':US<2 
,6) = "oz":Uf(2,7) = ' lb" :ltf <2,8> = "F 

H 

2888 HOME : KTAB 31; PRINT "CONVERSION D'UNI 

TES" : GOSUB 2698 
2885 VTAB 5: HTAB 26: PRINT "1. "Systems m*t 



r i que 



Bysteme imperial 1 



2918 \nm 18: HTAB 28: PRINT "2. "S/steme im 

p4ria1 — > Systeme metrique 1 ' 
2815 VTAB 15: HTAB 18: PRINT Mil 
282Q GOSUB 2435: IF REP < 1 OR REP ) 2 THEN 

PRINT BIP*: GOTO 2828 
2825 ON REP GOTO 2838,2858 
2838 Ul - 1:U2 = 2: HOME : HTAB 24: PRINT "C 

INVERSION M^triqui — ) Imperial": GOSUB 

2698 

2835 VTA8 4: FOR I = 1 TO 8: KTAB 31: PRINT 
I;". : "';Uf<l,t>;' "--) ";U*<2,I>; PR 
INT : NEXT 

2948 GOSUB 2435: IF REP < 1 OR REP > 8 THEN 

PRINT BIPf; GOTO 2848 
2845 GOTO 2878 

2859 Ul = 2:U2 = 1: HOME ; KTAB 24: PRINT "C 
QWERSION Imperial ~) M*tr i que" : GOSUB 
2698 

2855 VTAB 4: FOR I ■ 1 TO 8: HTAB 31: PRINT 
I;'. ; ~";Uf(2,I);" "--) "";U*<i,I): PR 
INT ; NEXT 

2969 GOSUB 2435: IF REP < 1 OR REP > 8 THEN 

PRINT BIPf: GOTO 2868 
2065 GOTO 2878 

2878 HOME : HTAB 29: PRINT 'CONVERSION DE '; 
US(Ul,REP>s" EN ";Uf(U2,REP): GOSUB 269 
8 

2875 TA = 1: VTAB 6; PRINT M3f 

2889 VTAB 8: INPUT "Valeur a conuertir ? ';V 

1: IF REP < > 8 AND VI < =8 THEN PR 

INT BIP$: GOTO 2888 
2885 IF Ul = 1 THEN ON REP GOSUB 2115,2128, 

2125,2138,2135,2148,2145,2156: GOTO 218 

8 

2898 VTAB 12: PRINT VI;" ";Uf (Ul ,REP) 

~"'jV2}' B ;U$(U2,REP) 
2895 IF Ul - 2 THEN ON REP GOSUB 2155.2168, 

2165, 2178, 2175, 2188, 2185*2190 : GOTO 218 



II3A 

C2E6 



B644 

E7D1 
8F27 

39E7 

4D14 
B8D7 

AA2A 
38FE 

E86D 

5C2A 

F832 
5B74 

B860 

C52A 

FC34 
5B74 



7223 
6D4B 



AA1F 

A163 
663A 



2188 V2 = INT (V2 * 



) / 



AB84 
A71B 
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2185 VTAB 12: PRINT VI;' ■ ;U*<U1 ,REP) 




2298 GOSUB 2478: GOTO 2218 


CF27 


"";: IF REP < > 8 ^0 U2 < 1 THEN PR 




2295 HOME : HTAB 29: PRINT 'CALCUL D'LNE QW 




INT '8' ; 


EF9E 


NTITE" : GOSUB 2698 


B477 


211B PRINT V2;' ■ ;U*CU2,REP> : GOSU8 2478: GO 




2388 KTAB 12: PRINT M3t 


1791 


TO 2686 


IFDE 


2385 VTAB 6: INPUT "Unit* 1 ? ";U1$ 


964A 


2115 V2 = VI * 9.63937: RETURN : REM ft* Cal 




2318 VTA8 8: INPUT "Proportion d'unite" I ? ' 




cul5 conversion *** 


4EF8 


;V1: IF VI < =8 THEN PRINT BIP*: GOT 




2129 V2 = VI * 8.B328: RETURN 


5D8F 


231 B 


BC37 


2125 V2 = VI * I.B94: RETURN 


7B98 


2315 VTAB IB: INPUT 'Unit* 2 ? ';U2* 


3577 


2138 V2 - VI * B. 62137: RETURN 


7CF5 


2328 VTAB 12: INPLFT 'Proportion d y unite* 2 ? 




2135 V2 - VI * 1.75: RETURN 


855F 


";V2: IF V2 < =8 THEN PRINT BIP*: GO 




2148 V2 = VI * 8,8352733: REHMJ 


5359 


TO 2328 


1966 


2145 V2 = VI * 2,2846: RETURN 


38C8 


2325 VTAB 14: INPUT 'Quant it* totale a obten 




2158 V2 = ((VI * 9) / 5) * 32: RETURN 


279C 


ir ? ';V3: IF V3 < =8 THEN PRINT BIP 




2155 V2 = VI * 25.3995: RETURN 


7283 


I: GOTO 2325 


54D8 


2168 V2 = VI * 36.479: RETURN 


27C9 


2338 V4 = (UI / V2) * V3:V4 = INT <V4 * 188 


2165 V2 = VI » 8.9144: RETURN 


3FC4 


) / 188 


6AD3 


2178 V2 = VI * 1.68931 RETURN 


26C5 


2335 PRINT : PRINT "11 uous faudra done: ';V 




2175 V2 = VI * 8.5679; RETURN 


3BCD 


4;' ';U1*;' pour ';V3;' ';U2* 


FBFC 


2168 V2 = VI * 28.35: RETURN 


BD94 


2348 GOSUB 2478: GOTO 2218 


CF27 


2185 V2 = VI * B.373: RETURN 


6D8F 


2345 HOME : KTAB 28: PRINT * CALCUL EN litres 




2196 V2 = <<V1 - 32) * 5) / 9\ RETURN 


!C9D 


/1 88 Km": GOSUB 2698 


1C96 


2195 ; 


8B3A 


2358 HTAB 12: PRINT M3* 


1791 


2288 REM *** CONSOCIATIONS **# 




2355 VTAB 8: INPUT "Nombre de k imometres par 




2285 : 


8B3A 


courus ? ";V1: IF VI < =8 THEN PRINT 




2218 TA = 1: HOME : HTAB 27: PRINT "CALCULER 




BIP*: GOTO 2355 


2235 


DES CCNS0M1AT IONS': 60SUB 2698 


61 E4 


2368 VTA8 18: INPUT 'Awec combien de litres 




2215 VTAB 7: HTAB 13: PRINT "1. — ) "Calcule 




de carburant ? ';V2: IF V2 < =0 THEN 




r une proportion a part i r de quant it es 




PRINT BIP*: GOTO 2368 


49F7 


donitlti 4 ; PRIh^fT 


389B 


2365 V3 = <V2 / VI) * 188:V3 = INT (V3 * 18 




2228 KTAB 13: PRINT "2. — > "Calculer une qu 




8) / 188 


8906 


an t i a part i r d'une proportion donnfce 




2378 VTAB 15: PRINT 'La consonmation est :"" 




PRINT 


D5A2 


;V3;" l/188km" 


F311 


2225 KTAB 13: PRINT '3. — > "Calculer une co 




2375 GOSUB 2478: GOTO 22 IB 


CF27 


nsommation en J/188 km*: PRINT 


B52B 


2388 HOME : HTAB 26: PRINT "CALCULER LE COUT 




2238 KTAB 13: PRINT '4, -> 'Calculer le cou 




D'UN TRAJET': GOSUB 2698 


CF31 


t d'un trajet": PRINT 


OFEF 


2385 HTAB 12: PRINT M3* 


1791 


2235 HTAB it: PRINT Ml* 


ACBE 


2396 VTAB 6; INPUT 'Consonmation en 1/188 Km 




2248 GOSUB 2435: IF REP < 1 OR REP ) 4 THEN 




? '}V1: IF VI < = B THEN PRINT BlPi: 




PRINT SIP*: GOTO 2248 


DD3B 


GOTO 2396 


BIBB 


2245 ON REP GOTO 2258,2295,2345,2388 


FC8B 


2395 VTAB 8: INPUT 'Prix du litre de carbura 




2258 HOME t HTAB 29: PRINT "CALCUL D'UNE PRO 




nt ? "?V2: IF V2 < - B THEN PRINT BIP 




PORTION': GOSUB 2698 


3C2B 


*: GOTO 2395 


629A 


2255 HTAB 12: PRINT M3* 


1791 


2408 VTAB IB: INPUT "Nombre de kilometres pa 




2268 VTAB 6: INPUT "Unit* 1 ? ';U1* 


964A 


rcourus ? ";V3: IF V3 < =8 THEN PRIN 




2265 VTAB 8: INPUT 'Valeur pour Tun it* 1 ? 




T BIP*: GOTO 24B8 


4E58 


■ jVl : IF VI < M THEN PRINT SIP*: GO 




2485 V4 = <<V1 / 188) * V3> * V2:V4 ■ INT < 




TO 2265 


8561 


V4 * 188) / 188 


B47D 


2278 VTAB 18: INPUT 'Unite" 2 ? ';U2* 


3577 


2418 VTAB 15: PRINT "Le trajet revient a :"' 




2275 VTAB 12: INPUT "Valeur pour l'unit* 2 ? 




;V4;' F a 


497C 


•}V2: IF V2 < = B THEN PRINT BIP»: G 




2415 GOSUB 2478: GOTO 2218 


CF27 


0T0 2275 


BD7U 


2428 * 


Q OA 


2288 V3 = VI / V2:V3 = INT (V3 * 186) / 186 


C92A 


2425 REM *** SAISIE N" DE CHOIX *** 




2285 VTAB 15: PRINT "La proportion est done: 




24 38 : 


883A 


■;V3;' ■;Ul*;V'}U2$ 


51 8F 


2435 VTAB 21 : FOR t = I TO 88: PRINT "_";: N 








■lltMHIIIMNIIHIIIMIIIIIIIIIIIIIIIIUtllM 
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EXT : PRINT 
2440 "/TAB 23: KTAB 38: PRINT "Indiquez votre 

choi x ';: GET R*:REP = VAL (R$) 
2445 IF R$ = CHR* (27) QR R$ = CHRt (35 TH 

EN POP : GOTO 115 
245B RETU^ 
2455 : 

2460 REM *** SAISIE REP CUWIER *** 
2465 : 

2478 VTAB 21: FOR I = 1 TO B8: PRINT ' N 

EXT : PRINT 
2475 ITAB 22: HTAB 25: PRINT ■ Imprimer les 

r^sul tats: <I> 
2480 VTAB 23: PRINT "Appuyez sur une touche 

pour retarmencer, sur <ESC) pour retour 
iu menu general ' ; : GET R»: IF R* = C 

HRt <27) OR Ri = CHRt (3) THEN POP : 

HOME : GOTO 115 
2485 IF Rt = T OR Rt = "i' THEN GOTO 2645 
2498 RETURN 
2495 : 

2588 REM *** TRAIT. ERR. 7REENTER *** 
2585 : 

2510 PRINT BIPt: VTAB ( PEEK (37) - 1): KTAB 

TA: RESUME 
2515 : 

2528 REM *** AFF. PERIMETRES *** 
2525 : 

2538 IF U = i AND P > = 1880 THEN Lft = Ut<3 

>:P = P / 1898 
2535 IF U = I m P > =19 THEN Ut = Utr2>: 

?=?/{% 

2548 IF U = 2 AND P ) =188 THEN U* = Lr»(3> 
:P ■ P / 188 

2545 IF U = 3 AND P > = 1888 THEN Lit = Ut<4 

):P = P / 1808 
2558 P = INT <P * 188) / 188: VTAB 15: HTAB 

15: PRINT Tt;" = *;P;" -;U$:Ui = U$(U>: 

RETURN 
2555 ; 

256B REM *** AFF. SURFACES «** 
2565 : 

2578 IF U = 1 AND £ > = 188 THEN Ut a Ut(2> 

:S = S / 188 
2575 IF U = 2 AND S > = 18088 THEN Ut = Ut( 

3):S = S / 18880 
2580 IF II ■ 3 AND S } = 1888080 THEN Ut = U 

t(4):S = 3 / 1080888 
2585 S = INT (S * 18B) / 186: VTA8 15: HTAB 

15: PRINT Tt; B = "jS;" ';Ut;'2':Ut = Ut 

(U): RETURN 
2598 : 

2595 REM *** AC f . UQMMEft *** 
2680 : 

2685 IF U = 1 AND I 1 > = 1888 THEN Ut = Ut<2 



TRtAAPLIN MICRO 



30B5 

58 F4 
63B1 
083A 

603A 

38B5 

647B 



96AC 
F461 
6381 
8B3A 

893A 

A8C2 
683A 

883A 

BDCe 
C6FF 
1661 
5BC3 

A596 
M36 

083A 

4568 



2618 

2615 

2620 
2625 



2638 
2635 
2648 
2645 

2658 
2655 

2668 
2665 

2678 



2675 
2688 
2685 
2698 

2695 
2708 
2705 
2718 

2715 
2728 
2725 
2738 



NV « V/ 

IF Us 2 AND V ) = 1006089 THEN Ut = U 
K3) :V = U I 1888080 
IF U = 3 AND V > = 1008800 THEN Ut = ' 
ftftUon(s) de m':U = U / 1800089 
IF U = 4 THEN Ut - "millions) de m" 
l J ■ INT CV * 180) / 108: VTAB 15: HTAB 
15: PRINT T*;' = ';V; H B ;UI;"3":Ui = Ut 
(U>: RETURN 

REM *** RECOPIE D'ECRAN *** 

PRINT : PRINT Dt;"PR£l': PRINT CHRt (9 

FOR E = 8 TO 19: READ L 

POKE 788,1 - INT (L / 256) * 256: POKE 

789, INT (L / 256) , 

CALL 768: PRINT Mt: NEXT 

PRINT Dtj'PRfe 1 : PRINT Dt;'PR£3": RESTO 

RE : GOTO 115 

DATA 1824,1152,1280,1488,1536,1664,1792 
,1920,1064,1192,1320,1448,1576,1784,183 
2,1968,1104,1232,1368,1488 

REM *** FILET HAtfT *** 

FOR I = 1 TO 88 : PRINT '=■;: NEXT : PR] 
NT : RETURN 



1DD1 

C0F3 

B189 
8125 



975A 
803A 



REM *** AWERTISSEMENT 



GOSUB 2690: '/TAB 4: KTAB 15: PRINT M2t; 
Ut: PRINT : KTAB 15: PRINT M3t: RETURN 

REM *** BYE BYE **# 

HOME : VTAB 8: KTAB 35: PRINT "Au reuoi 
r.,.': VTAB 11: HTAB 11: PRINT "N'oubli 
ez pas de n'ittindM et de ranger votre 
tfitytctti...* 1 ; PK1NT %\9%\ PRINT HW 
: END 



6926 
83FE 

C97F 
CC52 

2CCD 



98C7 
083A 

063A 

583F 
883A 

083A 

FBBF 
883ft 

083A 



F844 



|MP # LM doit ^ tre '° premiere varioble du pro- 
gramme, ce qui est le cas (voir ligne 120). 



D32A 








300: 


AD 


CFEC 


308: 


03 




310; 


8D 










320 


99 


D558 


328 


E7 


883A 


330 


03 




39* 


Kl 


803A 


340 


E8 




348 


: 60 



14 03 
8D IF 
55 CO 

c% m 

00 60 
A5 69 
A5 6A 
TO 

EO 03 



8D IE 03 AD 15 
03 A2 00 AO 00 
BD 00 04 99 00 
54 CO TO m 04 
C8 E8 E0 28 D0 
18 69 02 8D 3E 
69 00 8D 3F 03 
4b Ste to TO 
DO F5 60 50 00 
BSAVE IMP.LM.A$3ffO r L$49 



(ex trait de 
TMn'l) 



39 



\ Votre bibliotheque 
I INFORMATIQUE 



• APPLE, LOGIQUE 
ET SYSTEMES EXPERTS 
(Rene Descamps) 

Pas de bonne programmation sans 
une logique sans faille, ce qui 
n'implique pas qu'un homme logi- 
que fasse forcement de la bonne 
prog ra mm at ion. Je n'irai pos plus 
loin et je vous laisse le soin de 
decouvrir vous-meme, dans le 
livre de Rene Descamps, comment 
resoudre un postuiat du genre : 

Souls les anges ont des ailes 
Aucun corbeau n'est un ange 
Tout corbeau a des ailes... 

Les programmes de cet ouvrage 
sont en Basic et vous seront farni- 
liers puisque realises sur Apple, lis 
vous aideront a construire un 
"moteur d'inference" et a trouver 
la solution d'enigmes logiques. 
Vous aurez dobord lu une courte, 
mais instructive introduction vous 
conduisont a la recherche de 
("intelligence (ortificielle... bien 
sur). Vous aurez ensuite aborde la 
notion de recursivite, Ea structure 
de la pile avant de passer a reva- 
luation d une expression logique. 
Irez-vous jusqu'a construire votre 



man rr name 



APPLE, LOGIQUE 
ET SYSTEMES EXPBTTS 
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ropre systeme expert ? Je le sou- 
aite car, si votre programme le 
merite, je suis sur que les lecteurs 
de TrempVm Micro ne tarderont 
pas a le consulter dans les colon- 
nes de leur revue preferee ! 

EDITIONS DU P.S.I. (Micro et t&kniques}, 
BP 86 - 77402 LAGNY 5 MARNE CEDEX. 
Tel. (16) 05. J 'I 22 01 (\20Fitcj. 

• DU BASIC 
AU LANGAGE C 
(Robert J. 7 'roister) 

On porle beaucoup du langage C 
et d'aucuns pretendent que, s'il ne 
devoit subsister qu'un seul lan- 
gage, ce devrail etre le langage C. 
L auteur de cet ouvrage {traduit en 
francais par Dimitri Stoquart) est 
un specialiste americain . 
II s'adresse aux utilisateurs du 
Basic et son but avoue est de facili 
ter leur passage au langage C. Si 
j'en juge par les premiers exem- 
ples donnes dans son livre, il sem- 
ble qu'il puisse gagner son pari. 
C'est clairement dit et le neophyte 
que je suis (et reste... car j'oi seu- 
lement parcouru les dix chapitres 
du bouquin) a meme compris plu- 
sieurs choses. 



I NTERMICRO 



Du BASIC au ^ 

LANGAGE V- 




par NESTOR 

Premier constat : ce nest pas 
gagne d'avance et r par rapport au 
Basic, on ne peut pas pretendre 
que la syntaxe soit facile a retenir. 
Par contre, j'avoue etre mainte- 
nant convaincu de la puissance du 
langage C. 

C'est en tout cos une approche a 
lire avec interet et je ne vous 
cacherai pas plus longtemps que 
i'ai maintenant I'intention de pour- 
suivre une etude qui devrait se 
reveler passionnante. J'aimerais 
toutefois pouvoir I'entreprendre 
sur mon Apple (le GS eventuel- 
lement) plutot que sur un IBM ou 
compatible. 

INTEREDITIONS (Collection fate/micro), 
87 Avenue du Maine, 75014 PARIS. 

• UNE GRAVITATION 
SANS GRAVITE 
(J ay ant V. Narlikar) 

L'auteur est professeur d'ostrophy- 
sique a Bombay (Inde) et il a ensei- 
gne a I'Universite de Cambridge ou 
son travail de vulgarisation scienti- 
fique lul a valu le prix decerne par 
la fondation ATRE. 
Pourquoi vous parler de cette tra- 
duction de Jean-Pierre Maury ? 
Parce que j'ai pris beaucoup de 
ploisir a la devorer. Mais oui : je 
croyais que la gravitation univer- 
selle etait un phenomene bien 
connu et j'apprends quelle reste 
mysterieuse. Et puis, pourquoi le 
cacher, j'adore que Ton me parle 
des planetes, cometes, trous noirs 
et autres trous blancs ! L'auteur se 
revele non seulement concis, mais 
agreable 6 lire. Je n'ai pas tout 
compris (attention ! c'est un 
ouvrage serieux... avec des gra- 
phiques et quelques formules !), 
mais je connais mieux cette gravi- 
tation... finalement maltresse de 
lUnivers. 

PA YO T ff space des Sciences}, 

\06 boulevard Saint-Germain. 75006 PARIS 

(HOFttc) 
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AUX.DRAW 

Comment transferer une table de formes 
en memoire auxiliaire... et I'utiliser ? 

Yvan KOENIG — dont on ne vantera jamais assez la competence en matiere de langage 
machine — vous propose une solution a la fois elegante et rationnelle pour transferer faci- 
lement une table de formes en memoire auxiliaire, puis s'en servir sans aucun probleme. 
Notez que cet utilHaire fonctionne sous ProDOS, mais tpurne aussi sous DOS 3.3 apres une 
legere modification (lisez d ce sujet la presentation du programme source en assembleur, 
en haut de la page 42). 

La DEMO utilise une fonte de caracteres publiee dans le numero 1 de Tremplin Micro : 
CARAC Attention ! ne confondez pas une telle table de formes avec les polices classiques 
de caracteres, dont la longueur est de768 octets (lire notren°12). 



ttt utilitaire eomprend : 

* TEST.AUX.DRAW 

Simple demo, comme vous 
pouvez le constater. 

• AUX.DRAW.S 

Programme source (assem- 
bleur MERLIN, mais les utili- 
soteurs de ProCODE ne 
devraieni pos rencontrer de 
difficulty particuliere pour le 
recopier). 

i AUX.DRAW 

Les codes, foci les a recopier 
sans erreur pour celles et 
ceux qui disposers de la dis- 
quette SIGNATURE, 



AJOUTE Z une ligne : 
25 PRINT CHRt(4> "CAT/RAM" 



TEST. AUX.DRAW 



TREMPllN MICRO 



10 


IF PEEK <1B4) < : 


> 64 THEN POKE 103,1s 






POKE 104,6 


4: 


POKE 1 


6384,8: PRINT CHR* ( 






4 > " R UN TEST. AUX.DRAW" 




28 


PRINT CHR* < 


21 ) : TEXT : HOME : PRINT "P 






ATIENCE" 








206A 


36 


Df ■ CHR* 


<4) : PR 


NT DVBRUN AUX.DRAW" 


42E5 


43 


PRINT O$"BL0A0 CARAC ,A$A00 " : & STORE 




50 


HC0L0R= 3: 


RGT= 0: 


SCALE= 1 




68 


HGR : POKE 


49234,0 






70 


FOR I = 1 


TO 


26: & 


DRAW I AT 8 * I ,10: 






NEXT 










60 


FOR I = 1 


TO 


7: & 


DRAW I + 26 AT 8 * I , 






20 : NEXT 








4D13 


90 


FOR 1 = 1 


TO 


26: & 


DRAW I + 33 AT 8 * I 






,30: NEXT 










160 


FOR I = 1 


TO 


6: & 


DRAW I + 59 AT 8 * I, 






40: NEXT 








E71A 


110 


FOR I = 1 


TO 


26: & 


DRAW I + 65 AT 8 * I 






,50: NEXT 








AB4A 


120 


FOR I = 1 


TO 


5: & 


DRAW I + 91 AT 8 * I , 






60: NEXT 










138 


POKE 491 6£ 


s & 


! WAIT 


49152,128: POKE 49168 






,0: TEXT : 


HOME 




33CB 
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**************************************** ***************** 



3 

-1 

5 

6 

7 

8 

9 

19 

11 

12 

13 

14 

15 

16 

17 

18 

1? 

29 

21 

22 

23 

24 

25 

26 

27 

23 

2? 

39 

31 

32 

33 

34 

35 

36 

17 

38 

3? 

40 

41 

42 

43 

44 

45 

44 

47 

48 

49 

5B 

51 

52 

53 



* 
+ 
* 



4e DRAW, 4c XDRAU , 4 STORE 

STORE marque la zone *6999-$87FF occup$e en RAMdisk 
et trans-fere la table de -forme deposit en 
MA1NBUF vers AUXBUF en m^moire auxiliaire 

DRAW et & XDRAU) s'utilisent comme DRAW et XDRAUI 
ma is utilisent la table en AUX 



Assembleur MERLIN . PRO 



Roger WAGNER Edi teur 



* Yuan KOENIG . UALLAURI S Le 89/12/86 
****************************** *****^****»**#************* 

* Cette routine est ecrite pour utilisation sous ProDOS 

* On peut l'utiliser sous DOS 3.3 en remplacant PROLEN 

* par DOSLEN = $AA60 . La mise a jour de UOLMAP 

* est alors inutile ma is elle ne perturbe rien. 
********************************************************* 

ORG *819 
******************************** 



at 

SHAPEL 

SHAPEH - 

■from = 

end = 

dest 

CHRGET 

CHRGOT 

DXL 

DXH 

DY 

QDRNT 

EL 

EH 

HNDX 
SCALEZ 
3HAPEPNT = 
COLCOUNT = 
ROTZ 

UOLMAP 
AM PERU 

MAINBUF = 



$IA 

SHAPEL+1 

*3C 

*3E 

$42 

*B1 

*67 

*D9 

DXL+1 

*D2 

*D3 

$D4 

EL+1 

*E5 

$E7 

$E8 

*EA 

$F<? 

*3C2 
*3F5 



jToken 'AT" 



;&3D 
;&3F 
S&43 



;&E<? 



_ 



A NOS CORRESP0NDANT(E)S 



La Redaction de T rem pi in Micro 
et Yvan KOENIG repondent 
volontiers aux questions des 
Lectrices et Lecteurs de la 
revue, mais on eomprendra 
que certaines regies doivent 
absolument etre respectees... 
et notamment : 

• Ne pas nous adresser des pro- 
grammes qui ne fonclionnent 
pas. Chercher une erreur exige 
parfois plusieurs heures et 
nous ne pouvons done pas nous 
livrer d ce genre d'exercice. 

• Formulation aussi claire que 
possible du probleme (sans 
oublier des renseignements sur 
la configuration utilisee), 

• Jolndre une enveloppe timbree 
pour la reponse. 



f BLOAD TABLE ,A*A99 
;ce qui pourra '^eraser - 

AUXBUF = $6890 * 

* Si 1 'on n'emploie pa= la DHGR on peut mettre * 

* AUXBUF en -$2980 ou merne en $1999. * 

* Se rHerer a PROTECT/RAM dans Tremplin nM2 * 



HGP1 
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0810: 
8812: 
8815: 
8817: 
081A: 
981C: 
081F: 

0820: 
0822: 
0824: 
0826: 
9828: 
082A: 



A9 
8D 
A9 
8D 
60 

C9 
F0 

F8 
C9 
D0 



03 



08 
F7 
4C 

F5 03 



A8 
1A 
95 
0D 
94 
F3 



082C: 20 Bl 80 

082F: 29 03 89 

8832s 4C 48 08 

0835s 20 Bl 80 

9838! 20 83 09 

883B! 4C 

083E: 20 Bl 00 

8841 s :F 8? 



55 
56 
^ 

59 

60 

61 

62 

63 

64 

65 

66 

67 

68 

69 

78 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 



92 
93 
94 
95 
96 
97 
98 
99 



* pour determiner la k'OLMAP c orrespondan t * 

* a ^utilisation e-f-fectiwe de UmemAUX. * 
a*********************************************** 



PROLEN 

AUXMOUE = 

SYNCHR 
GET BYT = 
GOERR 
HPOSN 
LRU01 

LRUDX1 
LRUDX2 
COSTBL 
HFNS 



INIT 



Rts 



L Dm 

STA 
LDA 
STA 
LDA 
STA 
RTS 



*BEC8 

HC311 

*DEC0 
*E6F8 
*F206 
$F41 1 
*F4B3 
SF4B4 
*F49C 
IF49D 
*F5BA 
*F6B9 

£ < ENTRY 
AMPERV+1 
£ > ENTRY 
AMPERM+2 
£$4C 
AM PERU 



XDRAW 



STORE 



■J SR. 
JSR 
JMP 

JSR 
JMP 



CHRGET 
DRWPNT 
D OX DRAW 

CHRGET 
DOSTORE 



0844: 


86 


IA 


100 


DRAW 6 


STX 


SHAPEL 


0846: 


84 


i 6 


101 




STY 


SHAPEH 


0848: 


AA 




182 


DODRAW 


TAX 




0849: 


4A 




103 




LSR 




084A: 


4A 




104 




LSR 




0848: 


4A 




185 




LSR 




084C: 


4A 




106 




LSR 




084D: 


85 


D3 


187 




STA 


QDRNT 


084F: 


8A 




108 




TXA 




0850: 


29 


0F 


109 




AND 


£'/0000ill 



jLongueur du dernier BIN 

;si on n'a pas sp4ci*i£ L !!' 

;MA1N<->AUX, ne change pas X/Y 




82 ENTRY 


CMP 


€*A8 


; STORE ? 


83 


BEQ 


STORE 




84 


CMP 


£fM 


; XDRAW ? 


85 


BEQ 


XDRAW 




86 


CMP 


£*94 


j DRAW ? 


87 


BNE 


Rts 


jErreur 


88 








89 DRAW 


JSR. 


CHRGET 




90 


JSR 


DRWPNT 


L 


91 


JMP 


DODRAW 






;Pointeur sur la Forme 

;A = '/aleur de ROT <8-*3F) 



; QDRNT 8=haut, l^droite 
; 2=bas, 3=gauche 



TREMPLIN MICRO 



d3 



0852: 
8853: 
8854: 
8858: 
885A: 
885B: 
885E: 
885F: 
8861 : 
8863: 
8865: 
8867; 
886A: 
086C: 
886E: 
9878: 
8872? 
8874: 
0876: 
8877; 
8879: 
887B: 
087D: 



8883: 
8885: 
8887: 
8889; 
888C; 
888D; 
888F: 
8891 : 
8892: 
6393: 
8894: 
8896: 
9898: 
089A: 
989C: 
889F: 



AA 

BC BA F5 
84 DB 
49 8F 
AA 

BC BB F5 
C8 

84 D2 
A4 E5 
A2 88 
86 EA 

28 46 89 

85 Dl 
A2 88 

86 D4 
86 D5 
A6 E7 
A5 D4 
38 

65 D8 
85 D4 
98 84 



28 B3 F4 

18 

A5 D5 
65 D2 
85 05 
98 83 
28 B4 F4 
CA 

D8 E5 
A5 Dl 
4A 
4A 
4A 

D8 D4 
E6 1A 
D8 02 
E6 IB 
28 46 89 
D8 C9 
68 



88A2: 86 1A 

08A4: 84 IB 

08A6: AA 

88A7: 4A 

88A8! 4A 

88A9i 4A 

88AA: 4A 

88A8: 85 D3 

88A0: 8A 

08AE: 29 8F 



118 

111 

112 

113 

114 

115 

116 

117 

118 

119 

128 

121 

122 

123 

124 

125 

126 

127 

128 

129 

138 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 



D2 



D3 



D4 



05 



142 
143 



145 

146 

147 

148 

149 

158 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 



D6 



TAX 

LOY 

STY 

EOR 

TAX 

LOY 

I NY 

STY 

LDY 

LDX 

STX 

JSR 

STA 

LDX 

STX 

STX 

LDX 

LDA 

SEC 

ADC 

STA 

BCC 

JSR 

CLC 

LDA 

ADC 

STA 

BCC 

JSR 

DEX 

BNE 

LDA 

LSR 

LSP 

LSR 

BNE 

INC 

BNE 

INC 

JSR 

ONE 

RTS 



COSTBL,X 
DXL 

£'<80881111 

COSTBL+1 ,X 
DY 

HNDX 
£8 

COLCOUNT 

LOADindX 

DXH 

£*S8 

EL 

EH 

SCALE2 
EL 

DXL 

EL 

D4 

LRUD1 

EH 

DY 
EH 
D5 

LRUD2 

D3 
DXH 



D2 

SHAPEL 
D6 

SHAPEL+1 
LOADindX 
D2 



Place dans DXL et DY. 
les valeurs de COS et SIN 
correspondant a ROT 



;Index par r; 
;a 1 'adresse de base 
;Init- compteur de collision 
;Lit ler octet de la -forme 



;Pr$pare le calcul des vecteurs 
; Left, Right, Up, Down 
^Coefficient d'$chelle 



;D£p1ace selon vecteur 



;D4place selon vecteur+98 1 
;Boucle selon 1 ^chel 1 e 



;Passe aux 3 bits suiuants 
i de la d£f i n i t i on 

;Dn n'a pas termini / cet octet 



; Octet suiuant de la definition 
;Si octet nul , c 'est f i n i . 



* Routine XDRAw" , se reporter a DRAW pour commentaires 



XDRAU8 STX 
STY 

D OX DRAW TAX 
LSR 
LSR 
LSR 
LSR 
STA 
TXA 
AND 



SHAPEL 
SHAPEH 



QDRNT 
£'<08081 1 1 1 




44 



GUY-HACHETTE 



08B0 : AA 




165 




TAV 
I HA 




08B1 : BC BA F5 


1 66 




i nv 
LDY 




B8B4: 84 09 




167 




STY 


DXL 


08B6: 4? 0F 




168 




EOR 


£ '/ark no h 1 1 


68B8: AA 




169 




TAX 




88B9: BC BB F5 


170 




LDY 


COS! pL+ 1 , a 


08BC: C8 




171 




I NY 




08BD: 84 D2 




172 




STY 


D i 


08BF: A4 E5 




173 




LDY 


UM Pi V 


08C1 : A2 00 




174 




LUX 


£0 


08C3: 86 EA 




175 




STX 


cm c-m *,it 
LULLUUN 1 


08C5: 20 46 


If 


176 




JSR 


LURD 1 flOA 


08C8: 85 01 




177 


XD2 


OTA 

b 1 H 


rwu 
UAn 


08CA: A2 80 




1 78 




LDX 




88CC: 86 D4 




1 79 




STX 


EL 


8BCE: 84 05 




188 




STX 


EH 


98D0: A6 E7 




181 




LOX 


SCALEZ 


0802: A5 04 




182 


XD3 


LDP 


EL 


98D4: 38 




183 




SEC 




08D5: 65 D8 




184 




ADC 


DXL 


08D7: 85 D4 




185 




STA 


t L 


08D9: 90 94 




186 




BCC 


V A A 
XL) 1 * 


08OB: 29 9C 


F4 


187 




TDD 

JSR 


LKUDaI 


08DE: 18 




188 




CLL 




08DF i A5 05 




1 89 


X04 


LDR 


tn 


08E1 : 65 D2 




I 90 




RDL 


UT 


08E3: 85 05 




191 




CTA 
O 1 R 


tn 


08E5: 90 03 




1 92 




DLL 




08E7: 28 90 


F4 


1 93 




TOO 

JSR 


LKUUa£ 


08EA: CA 




194 


XD5 


0EX 




08EB: 08 E5 




195 




BNE 




08ED: A5 01 




196 




LDA 


DXH 


88EF: 4A 




197 




i j-- r-i 

LSR 




08F0; 4A 




198 




LSP 




08F1: 4A 




199 




LSR 




08F2: D0 04 




200 




BNE 


XD2 


98F4: E6 1A 




201 




INC 


SHAPEL 


08F6: 08 02 




202 




BNE 


XD6 


08F8: E6 IB 




203 




INC 


SHAPEL+1 


08FA: 20 46 


09 


204 


X06 


TOD 

JSR 


1 HA l\ i r% i-IV 


98F0i 00 C9 




— - r- 

205 




Dfr.lC 

BNt 




08FFi 60 




206 
207 




H 1 j 




0986: 4C 06 


F2 


208 
289 


GGERR 


JMP 


IjUcRR 


0903: 20 F8 


E6 


210 


ORWPNT 


JSR 


PCTDVT 


0906: A5 E8 




211 




LDA 


j-i 1 k a f-L 1— nsk it 

SHAPE PN 1 


0988: 85 1A 




212 




STA 


SHAPEL 


090A: A5 E9 




213 




LDA 


SHAPEPNT+1 


09OC: 85 IB 




214 




STA 


SHAPEH 


098E: 8A 




215 




TXA 




090F: A2 08 




216 




LDX 


£0 


0911: 20 66 


89 


217 




JSR 


CMPindX 


8914: F0 02 




218 




BEG 


DPI 


8916: B0 EB 




219 




BCS 


GGERR 



Sous DOS 3.3 prenei 
garde. II existe diverses 
routines permetfant d'uiili* 
ser la memoirs auxiliaite 
comme disque virtue!. 
Etles sont tautes differen- 
tes Je n'ai pu en renir 
compfe en ce qui concerne 
la protection da natre 
labia de formot. 



;I1 legal quantity 
:num£ro de forme dans X 



;Y a-t-M une lorrae de ce 
;N0N -) Erreur < 



TREMPL1N MICRO 



891 8 : 


0A 






220 


DPI 




ASL 




;D4termine l'adresse de 


a 


991 9 : 


90 


02 




221 






8CC 


DP2 


; -forme dans la table. 




091B: 


E6 


IB 




222 






INC 


SHAPEH 








891D: 








223 


DP2 




TAY 










091 E : 








224 






JSR 


LOAD indY 


; detruit C 






0921 : 








225 






CLC 




;II nous faut C=0 






0922: 








226 






ADC 


SHAPEL 








0924: 








227 






TAX 










8925: 








228 






1NY 










0924: 








229 






PHP 




;3auve C 






0927: 




44 


9 


238 






JSR 


LOAD indY 


S d$tru i t C 






0°2A: 








231 






PLP 




;R4cupere C 






092B: 


65 


E9 




232 






ADC 


SHAPEPNT+1 








092D: 


85 


IB 




233 






STA 


SHAPEH 


;Sauve adresse de la forme 


992F: 


86 


1A 




234 






STX 


SHAPEL 








0931 : 


20 


B7 


00 


235 






JSR 


CHRGOT 


; Control e 






0934: 


C9 


C5 




236 






CMP 


£at 


;de la syntaxe 






0936: 


D0 






237 






BNE 


DP3 








0938: 




C0 


DE 


238 






JSR 


SYNCHR 








093B: 




B9 


F6 


239 






JSR 


HFNS 


jOu -faut — i 1 dess i ner 


? 




093E: 








240 






JSR 


HPOSN 








0941 : 








241 


DP3 




LDA 


ROTZ 








0943: 


60 






242 
243 






RTS 


















244 


LOAD 


indY 


— 


* 


;Remplace LDA ( SHAPEL) ,Y /AUX 


0944: 


98 






245 






TYA 










0945: 


24 






246 






HEX 


24 


; Saute instruction suivante 










247 


LOAD 


tndX 


= 


» 


:Remplace LDA ( SHAPEL .X> 


/AUX 


0946: 


8A 






248 






TXA 










0947: 


18 






249 






CLC 










0948: 


65 


1A 




259 






ADC 


SHAPEL 








094A: 


85 


3C 




251 






STA 


i r om 


;Adresse de 1 ' oc te t 






094C: 


85 


3E 




252 






STA 


end 


;a r#cupe>er 






094E: 








253 






LDA 


£0 






0950: 








254 






ADC 


SHAPEH 








0952 1 








255 






STA 


*rom+ 1 








0954: 




3F 




256 






STA 


end+ 1 








0956: 


A9 


AF 




257 






LDA 


f <DEP0T 


jAdresse ou. on le d£posera 


0958? 


85 


42 




258 






STA 


dest 








095A: 


A9 


09 




259 






LDA 


£ ) DEPOT 








Q95C? 


85 


43 




268 






STA 


dest+l 








095E: 
095F: 


18 
20 


11 




261 
262 






CLC 
JSR 


AUXMOUE 








0962: 


AO 


AF 


09 


263 






LDA 


DEPOT 


jrexupere 1 'octet convoit^ 


0965: 


60 






264 
265 






RTS 


















266 


CMPindX 


— 




:Remplace CMP ( SHAPEL ,X) 


/AUX 


0966: 


48 






267 






PHA 




jsauue Accu 






8967: 


20 


46 


09 


268 






JSR 


LOADindX 


;Place (ShttPEL.X) dans DEPOT 


096A: 








269 






PLA 




; Re" cup ere Accu 






096B: 








270 






CMP 


DEPOT 


; Compare n\ 






096E: 


60 






271 
272 






RTS 








096F: 








273 


DOSTORE 


LDA 


£<UOLMAP+l 




W 




0971 : 








274 






STA 


dest 









GUY-HACHETTE 



8973 






8975 


B 5 


43 


8977 


A9 


B0 


8979 






897B 






8970 






097F 


A9 


BA 


9981 


85 


3E 


8983 


A9 


69 


8985 




A9 



8988 : 


At 







898A: 


85 


42 




098C: 


85 


E8 




898E: 


A9 


60 




8998: 








8992: 


85 


E9 




8994: 


A9 


00 




8996: 


85 






8998: 


A9 


0A 




899A: 


85 


30 




899C: 


18 






899D: 


A9 


FF 




899F: 


6D 


C8 


BE 


09A2: 


85 


3E 




89A4: 


A9 


09 




89A6: 


60 


C9 


BE 


09A9: 


85 






09AB: 


38 






89AC: 


4C 


11 


C3 



09AF: 



275 


LDA 


£h;olmap+i 


276 


STA 


dest+1 


277 


LDA 


£<OURMAP 


278 


STA 


■from 


279 


LDA 


£>OURMAP 


280 


STA 


f r om^ 1 


281 


LDA 


£ < OUR LA ST 


282 


STA 


end 


283 


LDA 


f >OURLAST 


284 


JSP 


1 IIV V & <J A 


285 






286 


LDA 


£ <AUXBUF 


237 


STA 


dest 


288 


STA 


SHAPEPNT 


289 


LDA 


£ >AUXBUF 


290 


STA 


dest+l 


291 


STA 


SHAPEPNT + 1 


292 


LDA 


£ <MAINBUF 


293 


STA 


■from 


294 


LDA 


£>MAINBUF 


295 


STA 


■f r om+ 1 


296 


CLC 




297 


LDA 


£<MAINBUF-1 


298 


ADC 


PROLEN 


299 


STA 


end 




1 HA 


f VMATMRI IP-1 


30 t 


ADC 


PROLEN+i 


382 mouaux 


STA 


end+1 


383 


SEC 




304 


JMP 


AUXIWE 


305 






386 DEPOT 


DS 


1 



;0n mettre en place 

fits octets de U UOLMAP 

;du RAMdisK com espondant 

;a la zone $6000-$87FF 

jqui apparaitra par t i el 1 emen t 

;occup£e, ce qui protegera 

;la table dans le cas oli 



1 'on emploierait 1e RAMdisk 



;Adresse de la Table 




;MAIN->AUX 



307 
388 
309 
318 
311 



******************************** 

* Protege $6000 - $87FF * 
******************************** 



09B9 : 


FF 


312 


OURMAP DFB 


7.11111111 


;b1 ocs 


$08 


-$0F 


09B1 : 


FF 


313 


DFB 


Xllllllll 


; bl ocs 


$18 


-$17 


09B2: 


FF 


314 


DFB 


XI 1111 11 1 


; bl ocs 


$18 


-$1F 


89B3: 


FF 


315 


DFB 


XU 111111 


; bl ocs 


$28 


-$27 


09B4: 


00 


316 


DFB 


XI J 01 0800 


; bl ocs 


$28 


-$2F 


09B5: 


00 


317 


DFB 


X00000088 


; bl ocs 


$38 


-$37 


09B6: 


08 


318 


DFB 


X00001880 


; bl ocs 


$38 


-$3F 


89B7i 


FF 


319 


DFB 


xiiuini 


; bl ocs 


$48 


-$47 


09B8! 


FF 


328 


DFB 


xi mi in 


; bl ocs 


$48 


-$4F 


09B9! 


FF 


321 


DFB 


Xllllllll 


;bl ocs 


$50 


-$57 


89BA: 


FF 


322 


OURLAST DFB 


Xllllllll 


; bl ocs 


$58 


-$5F 






323 
















324 


************************************ 








325 


* Pour adapter 


selon beso 


ns r£els * 





326 * voir PROTECT. RAM Tremplin nM2 * 

327 ************************************ 



— End assembly, 427 bytes, Errors: 




TREMPLIN MICRO 



47 



AUX.DRAW 



Les valeurs indi- 
quees en couleur 
ne doivent pas 
etre tapees. Elles 
sont destinees 6 
contrdler la saisie 
du programme, en 
utilisant la dis- 
quette SIGNATURE 
mise au point par 
Yvon KCENIG (voir 
noire bulletin de 
commande). 



Pour sauver cette 
routine : 

BS AVE AUX.DRAW. 
AS810L427 



0818: 


A9 


20 


8D 


F6 


83 


A9 


08 


3D 


F7 


83 


A9 


4C 


8D 


F5 


83 


u u 


4FM 


8828: 


C9 


A3 


F0 


1A 


C9 


95 


F0 


00 


C9 


94 


D0 


F3 


20 


R1 


AA 


«L U 


9DF7 


0838: 


03 


09 


4C 


48 


88 


20 


Bl 


00 


28 


03 


89 


4C 


A6 


88 


28 


Bl 


8370 


8848: 


88 


4C 


6F 




86 


1A 


84 


IB 




4A 


4A 


4A 


4A 


85 


D3 


8A 


E7B7 


8358: 


29 


8F 


AA 


BC 


BA 


F5 


84 


08 


49 


0F 


AA 


BC 


BB 


F5 


C8 


84 


6A5B 


8868 ; 


D2 


A4 


E5 


A2 


08 


86 


EA 


20 


46 


09 

V 7 


85 


Dl 


A2 


88 


86 


D4 


65AE 


8878 : 


86 


D5 


A 6 


E7 


A5 


04 


38 


65 


08 


85 


D4 


9fi 


04 




B3 


F4 


0582 


8880 : 


18 


A5 


D5 


65 


D2 


85 

— - 


05 

w w 


90 

7 U 


03 


28 




F4 


CA 


00 


E5 


A5 


66A2 


0890 : 


Dl 


4m 


4A 


4A 


00 


D4 


F6 


1A 


DA 


J 


F6 


1 R 




46 






E665 


08A0 : 


C9 


68 


86 


1A 


84 


1 B 


AA 


4A 


4A 


4A 


4A 


O J 




RA 

on 


?9 


AF 


56S4 


88B8 : 


AA 


BC 


BA 


F5 


84 


D0 


49 


F 


AA 




RR 


r j 


PR 


R4 




A4 


C899 


08C8 : 


E5 


A2 


00 


86 


EA 


20 


46 


09 


85 


Dl 


A2 




R6 

CO 


D4 




D5 


1 F93 


0800 : 


A6 


E7 


A5 


D4 


38 


65 


08 


85 


04 


98 


84 


20 


9C 


F4 


1 8 


A5 


D2C0 


08E0 : 


D5 


65 


D2 


85 


D5 


90 


03 


28 


90 


F4 


CA 


08 


E5 


A5 


01 


4A 


C2E9 


08F0 ; 


4A 


4A 


D0 


D4 


E6 


1A 


00 


02 


E6 


IB 


28 


46 


89 


D8 


C9 


68 


2473 


8900 : 


4C 


06 


F2 


20 


F8 


E6 


A5 


E8 


85 


1A 


A5 


E9 


85 


IB 


8A 


A2 


92C8 


0918: 


00 


20 


66 


09 


F0 


02 


B0 


E8 


0A 


98 


02 


E6 


IB 


A8 


28 


44 


A0C2 


0928 : 


09 


18 


65 


1A 


AA 


C8 


08 


20 


44 


09 


28 


65 


E9 


85 


IB 


86 


8023 


8930 : 


1A 


20 


B7 


00 


C9 


C5 


D0 


89 


20 


C0 


DE 


28 


B9 


F6 


28 


1 1 


271 6 


8948 ; 


F4 


A5 


F9 


60 


98 


24 


BA 


1 8 


65 


1A 


85 


3C 


85 


3E 


A9 


00 


CFFC 


0950: 


65 


IB 


85 


3D 


85 


3F 


A9 


AF 


85 


42 


A9 


09 


85 


43 


18 


28 


F2D7 


8968: 


11 


C3 


AD 


AF 


89 


60 


48 


28 


46 


09 


68 


CD 


AF 


89 


68 


A9 


4746 


0970: 


C3 


85 


42 


A9 


03 


85 


43 


A9 


B0 


85 


3C 


A9 


09 


85 


3D 


A9 


0635 


0980: 


OA 


85 


3E 


A9 


09 


20 


A9 


09 


A9 


00 


85 


42 


85 


E8 


A9 


60 


32E7 


0998: 


85 


43 


85 


E9 


A9 


00 


85 


3C 


A9 


0A 


85 


3D 


18 


A9 


FF 


6D 


8442 


09A0: 


C8 


BE 


85 


3E 


A9 


09 


60 


C9 


BE 


85 


3F 


38 


4C 


11 


C3 


80 


D58B 


89B0: 


FF 


FF 


FF 


FF 


00 


00 


88 


FF 


FF 


FF 


FF 












41D8 



L'INFORMATIQUE... et les livres 



• l'orthocraphe 
jUueiire 

de l'informatique ' 

Les micro-ordinateurs rentrenl 
dans nos classes. II fauf espe- 
rer qu'iis seronl demain en 
nombre suflisanl ef que tous. 
maitres el eleves ouront retu 
d'ici la la formation necessoire 
pour en tirer le meilleur porli. 
On se pose acluellement de 
nombreuses questions pour 
savoir te que I on va faire de 
ces mochines, si elles vonl 
remplacer le mattre ou en quoi 
elles peuvent nous aider. 
Comme toujours dans les pe- 
riodes de transition, le desor- 
dre et le trouble accompa- 
gnent les innovations et le 
besoin d'information est 
grand. S'il est toutefois un 
domaine ou I on attend beau- 
coup de l'informatique c'esl 
bien celui de I'orthographe. 
Tfovailler sur Tecran c'est 
avoir pour soi tout seul bien 
plus d'une armee de scribes. 



bien plus qu'une imprimerie : 
mariioble, interoctif, lecran 
d'ordinateur permef l oufocor- 
fection. i'autonomie, I'inven- 
tion permanente, toute une 
metamorphose de valeurs, 
prometteuse d'un meilleur 
apprentissage. 

Les auteurs de cet ouvrage. 
Jean-Claude Lallios et Anne 
Delgodo nous ernmeneni ou 
pays des graphemes el nous 
proposent en meme temps un 
rappel des acquis les plus 
actuels en matiere d approche 
de I'orthograpKe. C'esl un tour 
d horizon sur ce qui se fait 
dons ce secteur avec I'aide de 
l'informatique el une presenta- 
tion de la serie des "ORTHO- 
BASE" Cumulanl de fai;on nou- 
velle differents monuels de 
classe, d la fois dictionnoires, 
listes de frequence, choix de 
Iris grophiques grammaticaux 
et thematiques etc.. ORTHO- 
BASE est, comme son nom 
I'indique, tine bose de travail, 



un instrument de recherche... 
"il apprend a apprendre". 

* Pat J.-C, IALL1AS el A, DELGADO 
f UCptfis - HSf T7C! ZIDK NA WAN. 



• PROGRAMMER 
SUR APPLE II : 
BASIC APPLESOFT 1 

Ce livre apprend plus que le 
Basic. C'est une introduction 
serieuse a I'informalique- II 
montre comment utiliser ce 
langage pour ecrire des pro- 
grommes inleressants. le lee- 
teur est conduit pos 6 pas pour 
mettre lui-meme ces program- 
mes au poinl- II opprend le 
BASIC au passage. 

Ce premier tome initie au Ira- 
vail sur I'ordinateur APPLE //. 
el etudie les problemes de 
bose ; I'utilisation des fichiers 
sur disquette et la gestion de 
la conversation qui passe par 
le clavier et lecran, entre le 
programme el lutilrsateur, 



CROGKAMMIf) SW II 

BASIC 

APPLESOFT 



Ivmk I "ill""" >i Mm 




IIIOPMI 



avec troitement des incidents qui peuvent se 
produire. II est destine, on s'en doute, 6 des 
personnes ne connaissani pos encore les res- 
sources de I'Applesoit et pos dovantoge celles 
de leur machine. 

' Par Ph. I, NGHtEM (324pagfi - UO F I7Q £YPQll£$ 



48 



GUY-HACHETTE 



INITIATION LM 




Clement RENARD 



CADRES 40/80 COLONNES 



Tracer un cadre, en mode 
texte t a partir d'un pro- 
gramme classique en 
Basic, est facile, mais rela- 
tivement lent... d'ou I'ecri- 
ture de multiples routines 
en langage machine. 
Amusez-vous a etudier 
CADRE0 et ses variantes . 



CADRE. DEMO 



10 PRINT CHR$ (21): TEXT: HOME 

15 GOSU8 60: PRINT "CADREO": PRINT CHR$ (4)"BLOAD 
CADREO": GOSUB 50 

20 GOSUB 60: PRINT "CADREl": PRINT CHR$ (4)"BLOAD 
CADRE1 ": GOSUB 50 

25 PRINT CHR$ (4)"PR£3": PRINT : PRINT CHR$ (4)"BLOAD 
CADRE2" 

30 GOSUB 60: PRINT "CADRE2 EN 80 COLONNES ": GOSUB 50 
35 GOSUB 60: PRINT "(M)ENU DE DISQUETTE ";: GET R$: PRINT 
40 IF R$ - "M" THEN PRINT CHR$ (4)"RUN MENU ,01'' 
45 HOME : END 

50 FOR I = 1 TO 5: GOSUB 55: HOME : GOSUB 55: CALL 768: 
NEXT: RETURN 

55 CALL - T98: POKE 49168.0: WAIT 49152,128,127: POKE 
49168,0: RETURN 

60 VTAB 12: HTAB 12: RETURN 






(BSAVE CADREO A$3QQ L528) 


300 


20 


58 


FC 


JSR 


SFC58 


303 


A2 


17 




LDX 


£$17 


305 


8A 






TXA 




306 




r 29 


24 


FC 


JSR 


$FC24 


309 




AO 


27 




LDY 


£$27 


30 B 




A9 


20 




LDA 


£$20 


30D 




91 


28 




|— STA 


($28), Y 


30 F 




38 






DEY 


310 




10 


FB 




_ BPL 


SO 30 D 


312 




CA 






DEX 


313 




8A 






TXA 




314 




_ FO 


F0 




BEQ 


$0306 


316 


30 


OF 




BMI 


$0327 


318 


20 


24 


FC 


JSR 


$FC24 


31B 


AO 


27 




LDY 


£$27 


31D 


A9 


20 




LDA 


£$20 


31 F 


91 


28 




STA 


($28) ,Y 


321 


AO 


00 




LDY 


£$00 


323 


91 


28 




STA 


($28) ,Y 


325 


10 


EB 




BPL 


$0312 


327 

mmmm 


60 






RTS 




TREMPLIN MICRO 



4Q COLONNES 



Peut etre utilise par un BRUN CADREO 



HOME efface l ecran. 

Registre X — nombre de lignes. 

Numero de ligne passe dans A avanf 

d'appeler VTAB + 2 (positionne lecurseur). 

Registre Y = longueur de la ligne (0 6 27). 

CARACTERE : Espace mode inverse. 

On trouve en $28-29 ladresse de la liqne, 

Y 55 Y — 1. 

Boucle jusqu a Y = Q inclus. 

X = X — 1. 

X dans A (ne modifie pas X). 

Si X = 0, tracer la ligne entiere. 

On a termine.. . 

VTAB position ne le curseur. 

Ecriture du premier octet 
et du dernier de chacune 
des lignes $16 a 1 . 



Et ca report ! 

Fin ou retour au Basic. 



\ suite page 50) 



49 



CADRE2 



80 COLONNES 



CADRE1 (VARIANTS) 40 COLONNES 



300 


A2 


I 7 


LDX 


£$17 


302 


O A 




TXA 




303 


20 


24 hC, 


JSR 


$FC24 


306 


AO 


2 7 


LDY 


£$27 


308 


DO 


OA 


BNE 


$0314 


30 A 


Q a 
TO 




TYA 




30 B 


FO 


07 


BEQ 


$0314 


30 D 


8A 




TXA 




30 E 


F0 


OA 


BEQ 


$0314 


310 


E0 


17 


CPX 


£$17 


312 


DO 


04 


BNE 


$0318 


314 


A9 


20 


LDA 


£$20 


316 


DO 


02 


BNE 


$031 A 


318 


A9 


AO 


LDA 


£$A0 


31A 


91 


28 


5TA 


($28), Y 


31C 


B6 




DEY 




31D 


10 


E8 


BPL 


$030 A 


31 F 


CA 




DEX 




320 


8A 




TXA 




321 


Id 


EG 


BPL 


$0303 


323 




25 


STA 


$25 


325 


60 




RTS 





B5AVE CADRE 1 .A$300,L$26 



inn 


A ? 


1 7 




i nx 

LU A 


f 4l 1 7 

Kr j> 1 / 


302 


Q A 






TV A 




303 




9 A 


r t. 


1 C D 




on a. 




97 




i nv 

L U T 


P<97 


on o 




fi A 
U M 




□ ML 

cut 


3uj 1 *t 


30 A 


O Q 
ID 






1 T A 




30 B 


C(l 

rO 






ft r/x 


2>U,*i 1 4 


30D 


On 






T V A 
1 A A 






FO 


04 




lj l Km 


$031 4 


310 


to 


1 / 




CPX 


£5 1 / 


31 2 


rtn 
U\J 


n 4 




DKIC 

BNfc 


Cp U o ] O 


31 4 


A Q 






1 Pi A 

1 UA 


r ffnn 

Ll/U 


<J 1 




09 




O IN t 


<;fi(9 i a 


31 8 


AV 


a n 
au 




i r\ a 
L L*A 


ft An 
i}AU 


31 A 


9f" 


DD 




D IT 


-Jjv_U Dj 


31 D 


n i 
V 1 


1 Q 

x O 




C T A 

5 In 


($28), Y 


31F 


2C 


54 


CO 


BIT 


$C054 


322 


91 


28 




STA 


($28),Y 


324 


88 






DEY 




325 


10 


E3 




BPL 


SQ30A 


327 


CA 






DEX 




328 


8A 






TXA 




329 


10 


D8 




BPL 


$0303 


32B 


85 


25 




STA 


$25 


32D 


60 






RTS 





BSAVE CADRE2.A$300,L$2E 



300 


A2 


17 




LDX 


£$17 


302 


8A 






TXA 




303 


20 


24 


FC 


JSR 


$FC24 


306 


AO 


27 




LDY 


£$27 


308 


DO 


OA 




BNE 


$0314 


30 A 


9B 






TYA 




30 B 


F0 


07 




BEQ 


$0314 


30 D 


8A 






TXA 




30 E 


F0 


04 




BEQ 


$0314 


310 


E0 


17 




CPX 


£$17 


312 


DO 


04 




BNE 


$0318 


314 


A9 


2Q 




LDA 


£$20 


316 


DO 


02 




BNE 


$031A 


318 


A9 


AO 




LDA 


£$A0 


31A 


2C 


IF 


CO 


BIT 


SCO IF 


31 D 


10 


08 




BPL 


$0327 


31F 


2C 


55 


CO 


BIT 


SCO 55 


322 


91 


28 




STA 


($28), Y 


324 


2C 


54 


CO 


BIT 


$C054 


327 


91 


28 




STA 


($28), Y 


329 


88 






DEY 




32A 


10 


DE 




BPL 


$030 A 


32C 


CA 






DEX 




32D 


8A 






TXA 




32E 


10 


D3 




BPL 


$0303 


330 


: 85 


25 




STA 


$25 


332 


60 






RTS 





IE1 



40/80 COLONNES 



La routine se comporte differemment selon le 
mode d'offichage : 40 ou 80 colonnes. 



BSAVE CADRE3,A$300,L$33 



Si Ton n'esl pas en 80 colonnes, saut. 
Ecriture en MEMOIRE AUXILIAIRE. 
Retour en MFJVAOIRE PRINCIPALE. 



Indispensable pour avoir le curseur en haul de 
I'ecran. ■ 
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1 



DIDACTIQUE 




Robert CAZENAVE 



QUESTIONNAIRE 

Simple, mais fort interesscmt 

Vous allez vous-meme creer vos questionnaires, puis inviter vos proches (ou vos eleves) 
a se soumettre aux petits tests que vous aurez ainsi prepares. Un conseil : inscrivez- 
vous en tete de la lisle des cobayes et vous constaterez qu'il n'est pas toujours facile 
d'eviter les petits pieges que Ton a soi-meme tendus. A I'usage, vous conviendrez qu'il 
ne faut pas depasser un nombre raisonnable de questions : 6 a 8, par exemple. 



COMMENT CON CEVOIR UN QUESTIONNAIRE 7 



Void un exemple, beaucoup plus parlant que de 
tongues explications. Imaginons que le theme choisi 
soit la CHANSON. Vous repondrez ainsi aux deux 
premieres interrogations du programme : 

• Qui chante PARIS S'EVEILLE ? 

• Jacques DUTRONC. 



Ensuite, vous devrez fournir, dans I'ordre qui 
vous conviendra le mieux, les identites dedeux 
autres vedettes (qui ne chantent pas PARIS 
S'EVEILLE) plus celle du veritable interprete ; 
Jacques DUTRONC. Le meme processus se 
repetera pour cheque question. 



10 


REM 




95 


PRINT M 2- Jouer" : PRINT 


DDF6 


15 
20 


REM QUEST] ONS / REPONSES 


003A 


100 


PRINT "3- Modi-fier un questi 
onnaire" : PRINT 


7488 


30 


REM 14/12/1986 


003A 


105 


PRINT "4- Ajouter une quest i 
on": PRINT 


F02D 


35 
40 


REM 


00 3A 


110 
115 


PRINT "5- Qui tter M 

HTAB 1: UTAB 29: INPUT "Motr 


4DAE 


45 


TEXT : CLEAR : HOME 


4051 




p choix:" ;C: IF C > 5 THEN 




50 

( 


DIM FICHIER$<52>iS* ■ CHR* 
<7):U1 - 280 :U2 = 255:';3 = v 




129 


PRINT S*: GOTO 115 

ON C GOTO 496,135,299,415.12 


3689 




0:Df = CHRi (4> 


E877 




5 


0A55 


55 


DIM TI$<12> ,REP*<12>,ESta2, 




125 


TEXT : HOME ! END 


5514 




3> 


48E1 


139 




00 3A 


69 




003A 


135 


TI$ = " * * NOMS DES FICHIER 




65 


REM **** MENU PRINCIPAL *** 
* 






S DU JEU * *": GOSUB 665: UT 
AB 1 : GOSUB 678: GOSUB 770: 




70 




093A 




GOSUB 665:TI1 = MI D"$ CFICHI 




75 


SPEED= V2 


3C31 




ER*(CH) ,4,13>! VTAB li GOSUB 


1536 


80 


GOSUB 665:1 It = »* "TESTONS 






670 




NOS CONNAISSANCES VTAB 




140 


GOSUB 60S: REM ** LECTURE DU 






1 : GOSUB 670 


53F9 




QUESTIONNAIRE 


1846 


85 


UTAB 9 


3EDB 


145 


GOSUB 690: REM *** AFFICHAGE 




90 


PRINT w l- Creation d'un ques 






DU SCORE 


074F 




t i onna r re a : PRINT 


FE38 


158 


D = 2: REM * NOMBRE D'ESSAI S 


4F46 



TREMPUN MICRO 



51 



r 



QUESTIONNAIRE 

155 : 

168 REM * BOUCLE D' INTERROGATION 
* 

145 : 

176 FOP N = 1 TO NQ 
175 GOSUB 498 

186 HOME : HTAB 1: UTAB 7: SPEED 



185 F = F + 1 

198 PRINT "QUESTION N" " ;N: PP1N 

T TI*(N) 
195 VTAB 19 

200 PRINT "REPONSE : " ; : INPUT R$ 
295 SPEED= 

210 IF R* = REP*(N) THEN PRINT 
"REPONSE EXACT E ":SC = SC + 
1 : GOSUB 696: GOTO 255 

215 PRINT : PRINT "REPONSE FAUSS 
E": PRINT S*;: PRINT St: FOR 
K = 1 TO 68: NEXT 

228 IF F < D THEN PRINT "NOuVEL 
ESSA1" : GOTO 189 

225 HTAB is VTAB 10: CALL - 958 
: PRINT "Pour vous aider:": 
PRINT 

FOR J = 1 TO 3: PRINT •};"-" ; 
u " ;ES^'N,J) : NEXT 
HTAB 1: UTAH 20: INPUT "QUEL 
NUMERO *. " ;NU ! IF NU ) 3 THEN 
235 

ES* = ES*(N,NU) 
IF ES* = REP"$(N> THEN PRINT 
"REPONSE EXACTE":SC = SC + 1 
: GOSUB 498: GOTO 255 
PRINT : PRINT "La bonne r*po 
nse tfftH B ;REP* (N> : GOSUB 7 
60 

F = 6 : SPEED= V2: NEXT 
TEXT : HOME : VTAB 18: HTAB 
Is INPUT "On continue CO/N>? 
";R$: IF R$ < > "0" AND R* 
< > " N " THEN PRINT SS ; : GOT 
248 

IF R$ = "N M THEN RUN 
N = 8 : GOTO 1 35 

REM * MODIFICATION * 

TI$ m » * * FICHIERS A MODI F 
IER **": GOSUB 445: VTAB 1: 
GOSUB 670: GOSUB 770: GOSUB 
445:TI* = "MODIFICATION DE : 



238 
235 



240 
245 



259 



255 
246 



(suite) 



003A 
9D38 
074F 

3815 
1 '55 



aA6 3 
2DC3 
3A32 



AOAE 

DDF0 
71B4 

F7D7 
*D11 



3F36 
05B4 



81D4 



F4D4 
4C6D 



265 
270 
275 
286 
285 
290 



O09B 
34F5 

28CC 
06 3A 

00 3A 



+ MI D"$ (FICHIER*<CH> ,4, 1 
3): MTAB Is GOSUB 470: GOSUB 
605 

295 PRINT : PRINT 

306 FOR K = 1 TO NQ: PRINT K| M *f 

u -" ;" ■ ;Tli(K) 
305 PRINT REP* 1 K 1 
318 FOR J = 1 TO 3: PRINT ES*<K, 

J~) : NEXT 
315 GOSUB 780: HOME 
328 NEXT 

325 VTAB 10: INPUT "N" de U que 

stion 4 modifier (0=inenu ) : " ; 

K: IF K > NQ THEN PRINT S*j 

: GOTO 325 
336 IF K = THEN RUN 
335 HOME :TI* = "Modifications p 

oss i bles:" : VTAB 4: GOSUB 67 



340 PRINT : PRINT 

345 PRINT "QUESTION .Q" 

356 PRINT "REPONSE . R" 

355 PRINT "CHOIX C" 

368 PRINT "LES 3 ENSEMBLE ..... E" 

365 PRINT "SUPPRESSION. .S" 

378 VTAB 20: INPUT "VOTRE CHOIX i 

" ;C* : HOME : VTAB 5 
375 IF C* = "Q y THEN PRINT "Que 
stion initiale:" ? : PRINT Tit 
<K>s PRINT "Nouvelle quest io 
n:"i GOSUB 726: PRINT : PRIN 
T i GOTO 450 
380 IF Cf = "R u THEN PRINT M R*p 
onse initiale:";: PRINT REP* 
CK>: PRINT "Nouuelle reponse 
:": GOSUB 730: PRINT : PRINT 
: GOTO 450 
385 IF C* = "C" THEN PRINT "Cho 
ix ini tial :" : FOR J = 1 TO 3 
: PRINT ES*<K,J) : NEXT : PRI 
NT : PRINT "Nouueau choix:": 
GOSUB 740: PRINT : PRINT : G 
OTO 450 

390 IF C% = U E" THEN PRINT "Que 
stion et r£ponse:": PRINT TI 
$(K>: PRINT : PRINT REP$<K) : 
PRINT "Choix:" : FOR J = 1 TO 
3: PRINT E8*CK,J): NEXT : PR 
INT "Nouuelle question et r# 
ponses: u : GOSUB 720: GOSUB 7 
30: GOSUB 740: PRINT : PRINT 
: GOTO 450 

395 IF C* = "S" THEN NQ = NQ - 1 
: FOR J = K TO NQ:TI*<J> = T 



33FA 
15AE 

90AE 

6261 

E03E 
D018 
0582 



3680 
4D68 



0614 
15AE 
42CI 
7294 
A540 
5FCB 
3F2C 

EEEF 



4245 



BD45 



0693 



6435 
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405 
419 
415 



429 

425 
438 

435 



445 
450 



455 
469 



445 



ItCJ + i>iREP*<J) = REPt<J + 

1>: FOR I = 1 TO 3:ESt<J,I> 

= ESt<<J ♦ 1>,I): NExT i NEX 

T : PRINT : PRINT : GOTO 450 
■ 

REM * ADD. D''UNE QUESTION * 

Tit = " * * QUESTIONS SUPPLE 
MENTAl RES * *" : GOSUB 665: U 
TAB 1 : GOSUB 670 : GOSUB 770 : 
GOSUB 605 

HOME : IF NQ = 10 AND FL = 9 

THEN UTAB 10: PRINT St;:TIt 

= "FICHIER COMPLET" ; GOSUB 6 

70: GOSUB 73B: RUN 

IF FL = 1 AND NQ = 10 THEN 4 

50 

FL = 1 :NQ = NQ + 1 :K = NQ J G 
OSUB 720: GOSUB 730! GOSUB 7 
48 

IF NQ = 10 THEN Tit = "FICHI 
ER COMPLET' i UTAB 20; GOSUB 
670: GOTO 450 

UTAB 22: HTAB 1: INPUT "Autr 
e question <0/N)?" ?Rt: IF Rt 

< ) "0" AND Rt < > "N" THE 
N PRINT St?: GOTO 440 

IF Rt = 11 0" THEN 420 
HTAB Is UTAB 22: CALL - ?58 
: INPUT "Confirmation <0/N> 
' " f Rt : IF Rt < > '0" AND Rt 

< > "N B THEN PRINT St; : GO 
TO 456 

IF Rt = "N" THEN RUN 

HOME : UTAB 18:TIt = ■ ENREG I 

STREMENT EN COURS" : GOSUB 67 



PRINT Dt ; "DELETE" (Fit 
GOTO 545 



475 
430 

485 
490 



495 



500 
505 
510 
515 
520 



REM * CREATION QUESTIONNAIRE 
* 

Tit = " * * CREATION DU QUES 

TIONNAIRE * GOSUB 665: U 

TAB 1 : GOSUB 678 

UTAB 4: HTAB 1: INPUT "Nombr 

e de questions (maximum 10>: 

■ ;NQ : IF NQ > 19 THEN 495 

FOR K = 1 TO NQ 

PRINT : PRINT 

GOSUB 729: GOSUB 738 

GOSUB 748 

NEXT : PRINT : PRINT 



72 9 4 
003A 

90 3A 



E7B5 

BE45 
4F3A 

FB54 

7A87 



FC01 
S5E0 



77C7 
34F5 



C3F5 
6F42 
1F49 

003A 



903A 



EC51 



E870 
CB2D 
15AE 
04CD 
E74B 
016A 



525 "TAB 23: HTAB 1: INPUT "NOM 
DU FICHIER CNMENlf).!* |FI*i I 
F Fit = THEM PRINT St | I 
GOTO 525 

539 IF Fit = "0" THEN RUN 

535 HOME : UTAB 10: PRINT " ENRE 
G I STREMENT DU FICHIER " 

540 Fit = "JX" + Fit: REM * NOM 
DU FICHIER 

545 PRINT Dt:"DPEN" ;FIt 

558 PRINT Dt j"WRITE" ;Flt 

555 PRINT NQ 

560 FOR K = 1 TO NQ 

565 PRINT TIt< K) : PRINT REPt< K> 

578 FOR J = 1 TO 3: PRINT ESt<K » 

J): NEXT J 
575 NEXT K 
580 PRINT Dt;"CLOSE" 
585 RUN 
590 : 

595 REM * LECTURE QUESTI ONNAI RE 
* 



PRINT Dt;"OPEN" ;FIt 

PRINT Dt ; 1 READ" ;FIt 

INPUT NQ 

FOR K - 1 TO NQ 

INPUT T1*< K) f REPt 1 ' K) 

FOR J = 1 TO' 3.1 INPUT ESt<K, 

J>: NEXT 

NET 

PRINT Dt;" CLOSE" 
RETURN 

REM * CENTRAGE DU TITRE * 

HONE : UTAB 1 : IMMERSE : PR I 
NT SPCC 48)"" ' r ; POKE 34 , 2: P 
ETURN 

HTAB :21 - LEN <Tlt) / 2): 
PRINT Tit: NORMAL : RETURN 

REM * AFFICHAGE SCORE * 

SPEED= U2 : UTAB 24 : HTAB 1 : 
CALL - 958: PRINT "Nombre de 

points: a ;SC; : POKE 35,23: 
RETURN 

SPEED= U2: UTAB 24: HTAB 1: 
PRINT "... Appuyez sur un 
e touche SUP ...";: POKE 4 
9168,0: WAIT - 16384,128s G 
ET Rt: RETURN 



605 
610 
615 

620 
625 
630 

635 
649 
645 
650 
6 55 
669 
665 



670 

675 
680 
685 
690 



695 
700 



A861 
*514 

3F4B 

09E4 
1EC1 
5A1A 
615* 
CB2D 
2*82 

3688 
Al CD 
C517 
59AC 
003A 



003A 
1EC1 
FCAB 
2523 
CB2D 
EFB4 

0808 

9582 
C517 
63B1 
603A 

083A 



CFE2 

487C 
003A 

003A 



5D87 
00 3A 
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53 



QUESTIONNAIRE 


(suite) 




f~t f. f l it r\-+ - 11 ft ft ^fc 1 II - ft ft.** .11 T ft * ft ll 

PRINT D>; OPEN ;PR$; ,TDIR ! 
PRINT Dt; "READ" ;PR* 


07AA 


795 : 


093A 


735 


INPUT A*,B$,C* 


8C0E 


710 REM * CREATION/MODI FIC* 




790 


N = N + 1 


7F65 


715 : 


093A 


795 


INPUT FICHIER* <N) :FICH1ER* = 




720 PRINT "QUESTION N* n :K: PRIN 






FI CHI ERS*''N ' 


317? 


T : INPUT TItCfOa PRINT r RE 




900 


IF FICHIERSf = "" THEN N = N 




TURN 


4<?D3 




- 1 : GOTO 820 


1 6DB 


725 : 


(?03A 


305 


N0M$ = MIDI (FICH1ER*,2,15) 


C827 


730 INPUT "REPQNSE;" ;REP*<K> ; RE 




819 


IF LEFT* CN0M*,2:' < > "JX" 




TURN 


42EB 




THEN N = N - 1 


BF02 


735 : 


903A 


ft 4 E 


ft ftT ft -finn 

GOTO 7v6 


2F4B 


740 FOR J = 1 TO 3: INPUT "CHOIX 




ft ft A 

829 


ft ft t fc. i*T ft * llftl ft ^ ft 1 II 

PRINT Dt; CLOSE 


C51 7 


DE REPONSESi" ;ES$(K f J) : NEX 




ftft C 

825 




03A 


T 


5274 


nna 

830 


ft. ckj a. n i~" r* ip r rv ■ — rt niT rR u. 

REM * ABbENCE DE FICHIEP * 




745 IF ESf (K,l) < > REP*(IO AND 




835 




rt. rt ft .» 

00 3A 


ES*<K,2) < > REPACK) AND ES 






HUME 


2Fy7 


*<K,3) < > REPS<K) THEN PR 




o45 


IF N = THEN UTAB 10: PRIN 




INT ■ ERREUR DANS LES CHOIX D 






T Sf : PRINT "ABSENCE DE FICH 




E REPOMSES" : PRINT Stjj GOTO 






IER SUR CETTE DISQUETTE" : GO 




740 


D019 




SUB 700: RUN 


EB07 


758 RETURN 


43BI 


850 


FOR K = 1 TO N: PRINT K;" " J 




755 : 


093A 




" : MID* <FICHIER$<K) ,4 




760 REM * LECT. FICHIERS DE JEU 






,13 ) : NEXT 


FAE1 


* 




855 


HTAB 1: MTAB 23: INPUT "Num* 




IAS • 


QQ OA 




p o flu + i r h i p r ( A— m pdii) s " t f!H s 

1 W UU 1 1 V 1 1 1 t 1 > V III V 1 1 \J r 1 | WM 1 




770 TI* - "... Ueuillez pat i en 






IF CH > N THEN 855 


93F1 


ter SUP . . .": VTAB 10! GOS 




860 


IF CH = THEN RUN 


1CA8 


UB 479 


16C2 


865 


FI* = MID* (FICHIER* CCH) ,2, 




775 PRINT D*;" PREFIX" : INPUT PR 






15) 


3BA8 


$ 


F71? 


870 


RETURN 


43B1 



Ne soyez pas en retard d'une generation... 



UTILISEZ VOU5 AUSSI 
LE LANCACE MACHINE ! 

Initiation facile avec : 

• LE 6502 IT LE G5C02 PAS A PAS 

Des dizaines de routines interessantes (extraites de TREMPLIN MICRO, 
mais parfois revues et augmentees) dans : 

• CLINS D'OEIL AU 6502 DE L APPLE 

• ROUTINES LM POUR 65C02 ET 6502 

Ces deux recueils sont vendus avec disquette de programmes (irtilisez le bulletin de commande, a la fin de la revue). 
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INITIATION 



DOS 



ProD05 



Frangois GALLET 




LA SOURIS ET 
L'ASSEMBLEUR 



PREMI ERE parti E : Defin itions 

Nous sommes de plus en plus nombreux d utiliser et 6 
apprecier ce peripherique merveilleux que represente 
Dame Souris . Malheureusement, si les recents logiciels 
apparaissant sur le marche en tirent parti, c'est rarement 
le cas pour I amateur ecrivant ses propres applications. 
En effet, celui-ci se contente tres souvent du Basic, voire 
du Pascal, et il faut avouer que la gestion de la Souris n'y 
est pas des plus simples, ni des plus rapides (sauf peut- 
etre en Pascal). 

L'efficacite passe done par le langage machine, mais 
voila... comment faire ? II fau! reconnoitre que la littera- 
ture traitont de ce sujet est des plus limitee, et souvent 
delicate a mettre en ceuvre. Ce premier article vous fami- 
liarisera ovec le principe de gestion de la Souris en 
Assembleur, les different* microprogrammes impiantes 
dons la carte etant expliques. Les articles suivants met* 
tront en pratique ces explications par le biais de routines 
en Assembleur et vous permettront d'utiliser pleinement 
la Souris pour vos propres creations. 
La premiere etape dons lelaboration dun programme, 
consiste evidemment d savoir si la carte Souris est pre- 
sente, et si elle Test, a connaitre le connecteur ou elle est 
implantee. of in de s'y referer d'une maniere relative (ceci 
evitant de faire appel a un slot determine, pour le cas ou 
Ton voudrait changer la carte de place). 



Comment trouver eette carte ?. 



Celle-ci possede 2 octets de signature, dont les valeurs 
hexadecimales $20 et $D6, sont implantees respective- 
ment dans ie systeme aux adresses $CnOC et SCnFB, "n" 
allantdel 6 7 (N° du slot). 

Por exempli : La carte est dans le slot n°4 (normalement) 
n = 4d'ou SCnQC = SC40Cdoit contenir S2Cf 
$CnFB = $C4FB doit contenir $D6 



Passez sous Moniteur pour le verifier. La routine Machine 
baloyant les slots a la recherche de la carte viendra des la 
prochaine fois. 

Une fois la carte trouvee. il reste a s'en servir. Un moyen 
pratique consiste d utiliser les interruptions de type IRQ 
(pour plus de detail sur celles-ci, consulter louvrage 
"PROGRAMMATION DU 65Q2" de RODNAY ZAKS). Lo 
Souris en genere 60 par seconde, ce qui permet de passer 
autant de fois dans le programme de traitement. 

Mois avant toute chose, il convient d'initialiser la Souris. 
En premier lieu, vous devez determiner (endroit en 
memoire ou se placera la routine de traitement. Une fois 
que c'est fait (ex. : 50300), il foudra placer I'octet haut de 
1 adresse ($03) en S3FF et I'octet bos ($00) en $3FE, afin 
d'initialiser le vecteur d'interruption, vecteur qui permet- 
tra au 6502 d'aller Id ou vous le desirez 6 chaque IRQ. 

Ensuite, il faut mettre la Souris en service et preciser ce 
qui active les interruptions, en utilisant les micropro 
grammes appeles INITMOUSE et SETMOUSE 

INITMOUSE (code $19] : initialise les valeurs par 
defaut de la Souris et synchronise le sous- 
systeme avec le cycle d'extinction verticale de I'ecran. 

SETMOUSE (code $12) ; au depart, la Souris est inac- 
tive et ses registres sont places aux 
valeurs par defaut (voir Initmouse). Pour la rendre 
active, on utilise un octet, appele "octet de mode", dont 
la valeur, chargee dans le registre A et tronsmise a Set- 
mouse, permettro la mise en service en precisont la 
cause de Interruption. 



Exemple 



LDY £$19 

JSR CALLCARO 

LDA £$XX 

LDY £$12 

JSR CALLCARD 



Code dela routine INITMOUSE. 
Appel et execution... 
Octet de mode dons A. 
Code dela routine SETMOUSE 
Appel et execution... 

(suite page 56) 
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Oueiles valeurs pens prendre xx 
et queues en sont le$ significations ? 



Un octet se composant par definition de 8 bits,, chocun de 
ces bits est utilise comme suit : 

Bit 0* : met Dome Souris en fontfion 

Bit 1 : interruption sur deplacement de la Souris 

Bit 2 ; interruption sur enfoncement du bouton 

Bit 3 : interruption a chaque rafroTchissement de 

I'eeran (60 fois par seconde) 
Bit 4 67 : reserves. 

* (le plus a droite) 

Example : XX = $09 

Detaillons l octet bit a bit : $09 = 00001001 

Le bit vafant 1, on met done la Souris en fonction. Les 
bits 1 et 2 volant 0, il n'y oura pas d'interruptions a cause 
d'un deplacement ou de lappui du bouton. Par centre, le 
bit 3 etant a 1 , on aura une interruption a chaque extinc- 
tion verticole de I'eeran, et done 60 branehements a notre 
routine de traitement, ceci en une seule seconde. 
II est evident que toute combinaison peut etre demondee 
(mettez tout de mime le bit a 1, ofin d'avoir la Souris en 
service, sinon,..). Vous pouvez activer les interruptions pour 
tout en meme temps (pas vraiment utile) en mettant I'octel 
de mode 6 $0F (valeur a ne pos depasser, sous peine 
d'empieter sur les bits reserves, ce qui conduirait SETMOUSE 
a vous retourner une erreur en mode illegal}. 
II existe un mode, appele "mode possif", ou I'octet de 
mode a la valeur $01, et pour lequel il n'y a pas d'inter- 
ruptions. Ce mode ne presente que peu d'interet (ce qui 
n'empekhe pas de I'utiliser), car on est oblige de se bran- 
cher en permanence 6 une routine de lecture des regis- 
tres de la Souris, ce qui penalise la ropidite et Poccupa- 
tion memoire. 

INITMOUSE et SETMOUSE ne sont pas les seuls micro- 
programmes implantes 
dans la carte, II en existe dautres. En void la liste : 

(code $13) : la carte Souris n etant pas, et de 
loin, la seule a envoyer des interruptions au 
6502 parmi la multitude de cartes existantes sur le marche, 
Servemouse permet de determiner si e'est la Souris qui en est 
a Torigine. Servemouse met a jour l octet d'etat ($778 + n) et 
positionne le Carry 6 si la Souris est la cause de ['interrup- 
tion, et a 1 si elle n'y est pour rien. Servemouse ne modifie 
pas les trous d'ecran (voir plus loin). 

(code $14} : e'est une routine importante. Elle 
vous servira 6 transferer les donnees en 
cours des registres de la Souris vers les trous d'ecran. Elle 
positionne a les bits 1, 2 et 3 de I'octet d'etat ($778 + n). 

(code $15) : positionne a les valeurs en X 
(abscisse) et Y (ordonnee) 6 la fois dans la 

carte Souris et dons les trous d'ecran, L octet d'etat ($778 + 

n) est inchonge. 



(code $16) : positionne les registres de la 
carte Souris en fonction des valeurs X et Y 
trouvees dans les trous d'ecran, 

(code $18) : positionne les registres de la 
carte Souris a leur valeur la plus basse. Les 
trous d'ecran ne sont pas modifies. 5i vous desirez mettre les 
trous d'ecran aux valeurs correspondantes, faites suivre 
Homemouse par Reodmouse. 

(code $17) : le microprogramme important 
par excellence. C'est lui qui fixe les valeurs 
limites par defaut des positions en X et Y. Au depart ces 
valeurs sont $0000 et SQ3FF, soil une excursion de a 1023 
en X aussi bien qu en Y. Si vous voulez modifier ces limites et 
je parie que vous le ferez void comment proceder : 

* mettez cTabord Paccumulateur a la valeur correcte selon 
que vous desirez modifier les limites de X (abscisse) ou Y 
(ordonnee) : 

A = 0, les limites des coordonnees X sont modifiees 
A = 1 , les limites des coordonnees Y sont modifiees 

* les nouvelles limites seront prelevees dans les trous 
d'ecran ou vous les aurez placees auparavant : 

$478 : Trou d eeran contenant I'octet le moins signifi- 

catif de la lirnite inferieure. 
$578 : Trou d'ecran contenant I'octet le plus significa- 

tif de la lirnite inferieure, 
$4F8 : Trou d'ecran contenant I'octet le moins signifi- 

catif de la lirnite superieure. 
$5F8 : Trou d'ecran contenant I'octet le plus significa- 

tif de la lirnite superieure, 

Exemple ; Imaginons un X variant de a 79 et un Y de a 23. 



MODIFICATION DES LIMITES EN X 



LDA £$00 
STA $478 
STA $578 
STA $5F8 
LDA £$4F 
STA S4F8 
LDA £$00 

LDY £$17 

JSR CALLCARD 



dans ... 



79 dans ... 



A = 0, pour modifier les limites de 
labscisse 

Code de la routine CLAMPMOUSE 
Appel et execution 



MODIFICATION DES LIMITES EN Y 



LDA £$00 
STA $478 
STA $578 
STA $5F8 
LDA £$17 
STA $4F8 
LDA £$01 

LDY £$17 

JSR CALLCARD 



dans ... 



23 dans 



A = 1, pour modifier les limites de 
lordonnee 

Code de la routine CLAMPMOUSE 
Appel et execution. 
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Bien entendu, ceci est correct en theorie, mais en pratique, 
vous bougeriez 6 peine voire Souris que le pointeur serait 
deja en lin d'ecran. En fait, il faut etablir ies limites beaucoup 
plus loin en prenant des multiples de 79 et de 23 et determi- 
ner un coefficient de reduction ramenant aux homes de 
I'ecran, ce qui permet de moduler la sensibilite dons le 
deplocement. Par exemple, on peut etablir Ies limites en X a 
632 et Y a 1 1 5, ce qui donne des coefficients respect if s de 8 et 
de 7. Cela signifie que Ton aura 1 seul deplocement en X a 
I'ecran pour 8 deplacements en X par la Souris. et 1 en Y a 
I'ecran pour 7 par la Souris. 

ATTENTION ; CLAMPMOUSE detruisant le contenu des 
trous d'ecran de position en X et en Y ($478 + n, $4F8 
+ n, $578 4 n et $5F8 + n), il suffit de la faire suivre par 
READMOUSE pour Ies restaurer. 



Que son t Ies trous d'ecran ? 

II s'agit en fait de cases memoire sifuees dons lo zone 
reservee a I'ecran. Cette rone, de 1 ko, n'est pas totale- 
ment utilisee pour I'affichage de donnees, car 960 octets 
seulement sont necessoires (24 lignes X 40 colonnes). II 
reste done de la place disponible pour stacker des para- 
metres, place reservee en general pour ies cartes 
d' extension. 

QUELS SONT CEUX UTILISES PAR LA SOURIS ? 

$478 + n : Octet le moins significatif de la position en X. 
$4F8 + n : Odet le moins significatif de la position en Y. 
$578 + n : Octet le plus significatif de la position en X. 
S5F8 + n : Octet le plus significatif de la position en Y. 
$678 4- n : Reserve. 
$6F8 + n : Reserve, 



$778 + n : Etat du bouton et des interruptions, 
S7F8 + n : Mode en cours. 

"n" etant le numeradu connecteur ou lo carte Souris est 
implantee. Si, par exemple, elle se trouve dons le slot 4, 
I'octet le moins significatif de lo position en X sera stocke 
en $478 + 4soit$47C, 

Quelques explications sur I'octet reserve a I etat du bou- 
ton et des interruptions ($773 + n). 
A chaque interruption, alors que le 6502 vient se brancher 
sur votre routine de traitement des deplacements de la 
Souris, il est plus que probable que vous aurez a fester 
votre Souris. L 'octet d'etat vous donnero des informations 
que vous n'aurez plus qu'a interpreter en fonction de vos 
desirs. Voici ces renseignements : 



Bit a* 


Reserve. 


Bit 1 


Interruption causee par le mouvement (X ou Y). 


Bit 2 


Interruption sur enfoncement du bouton. 


Bit3 


Interruption due au rafraichissement de I'ecran (60 fois 




par seconde). 


Bit 4 


Reserve. 


Bits 


X ou Y ont varie depuis la derniere lecture* 


Bit 6 


Le bouton etait enfonce lors de la derniere lecture. 


Bit 7 


Le bouton est octuellement enfonce. 



* (le plus d droite) 

Bien entendu, chacune de ces propositions n est vraie que 
lorsque le bit correspondent est a 1 , Les bits 6 et 7 per- 
mettent, en associant leurs tests, de determiner un rela- 
chement ou un enfoncement du bouton. 
Voild, il est maintenant temps de nous quitter, cor la pro- 
choine fois commenceront les choses serieuses avec les 
routines en Assembleur. Je vous conseille de reviser les 
mnemoniques, leurs fonctions, ainsi que leurs modes 
d odressage. Francois GALLET 



Yvan KOENIG 

vous repond... 

• Lecteur passionne de Tremplin 
Micro, je voudrais savoir si le logic iel 
Toolkit dont vous faites si souvent 
mention est bien livre avec I'impri- 
mante Image writer II (je vais en 
acheter une) et, dans le cos con- 
troire, quel est son prix ? 
Est-on oblige d'avoir "ProDOS" sur 
son Apple pour utiliser "ProCODE" ? 
Et peut-on se procurer "ProCODE" a 
un prix raisonnobte ? Et y a-i-il des 
ossembleurs fonctionnant sous DOS 
3.3. et efticaces ? 

D.P. (66000 PEftPIGNAN) 



REPQ NSE D'Y. KOENIG : 

II existe deux disquettes TOOLKIT, 
imprimante dans la gamme APPLE 
fi Le Toolkit livre avec I JMW1 etait 
en DOS 3.3 et e'est a lui qu'il est 
souvent fait allusion dans Tremplin 
Micro (il y en a peut-etre eu une 
version ProDOS lors de ('introduc- 
tion du He). 

A ma connaissance, il n est plus 
distribue officiellement depuis la 
disparition de I'lMWl mais votre 
distributeur devrait pouvoir vous 
en faire unecopie. 

Pour I IMW2 il existe un Toolkit 
sous ProDOS. APPLE ne le fournit 
pas d'office car cette imprimante 
n'est pas specifique a la gamme 
APPLE II. Votre distributeur, s'il est 



agree, DOIT vous en faire une 
copie sur une disquette que vous 
lui foumirez. 

Vous pouvez demander a votre 
distributeur de vous fournir Pro- 
DOS, il s'agit alors du produit "Kit 
utilisateur ProDOS" ref. F2D-2010. 

Quant a ProCODE, il forme un tout 
et comprend notamment le sys- 
teme ProDOS, 

ProCODE est vendu aux environs 
de 1000 francs et e'est le seul pro- 
duit Francois (Version. Soft). 

Si I'utilisation d'un assembleur en 
Anglais ne vous gene pas, le choix 
est large. Mon choix personnel est 
MERLIN dans ses diverses 
versions. ■ 
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• LOGO DANS L'ESPACE 
Horacfo Reggini 
adapts de I'espagnol par 
Act fnformatique 

II ne fouf pas se demander si les outils 
techniques condrlionnent les manieres de 
vivre, mois plutot reflechir sur les immen- 
ses possibilites que ces outils off rent oux 
individus... pour pouvoir developper leur 
intuition, raisonner, decider, agir Les 
outils techniques ne limitent pas I'activite 
humaine bien au contraire, lis peuvent 
elorgir son champ et I'enrichir s'ils sont 
correctement employes. L'outil technique 
utilise dans ce livre est I'ordinateur, la 
modolite d'utilisation est Logo et I'activite 
en jeu est la description et la realisation 
de formes geometriques spatiales. 

Ce livre invite le lecteur a participer octi- 
vement au travoil et au role de "construc- 
ted de formes", qu'il soit artiste — pein- 
tre ou sculpteur — , artisan — menuisier 
ou forgeron — , architecte ou ingenieur, 
en lui suggerant une excursion intellec- 
tuelle dans le domaine de la creation et 
du maniement des formes tridimen- 
sionnelles. En apprenant a I'ordinateur a 
produire des objets tridimensionnels, le 
lecteur acquiert un plus grand discerne- 
ment et une meilleure comprehension de 



l elegance et de la complexity des formes 
dans l espace. L'ouvroge est organise en 
ETUDES ou "exercices de I'esprif qui 
mantrent au lecteur ('utilisation des com- 
mandes permettont de resoudre des cas 
simples et interessants. Au sommaire on 
trouvero de nombreux objets, parmi les- 
quels : I'escalier en colimacon, la bicy- 
clette, I'immeuble, lo lampe, les engre- 
noges, lo cage, I'oignon, le moulin a vent, 
bref , une variete de themes pour un large 
public... II est done possible, a parlir du 
langage Logo, de faire decoller la tortue 
et de lui faire tracer sur I'ecran des objets 
en trois dimensions. II suffit simplement 
d'enrichir le longage de procedures dont 
la liste est donnee en fin d'ouvrage. II 
devient alors tres simple d'imaginer et de 
commander des deplacements de la tor- 
tue dans f'espace. Ce livre propose de 
nombreux exemples qui permettront de 
diversifier les activites Je programma- 
tion en Logo en leur donnant une dimen- 
sion supplemental. 

CEDIC /NATHAN - Idees et formes - 

6, boulevard Jourdan, 75014 PARIS 

Ul. (1J 45.65.06.06. 160 pages -H5F He. 

• PRATIQUE DE LA 
MISE EN PAGE 
SUR MACINTOSH 

(A. Gamier ef l-L Van Impe} 

Cet ouvrage est destine a tous ceux qui 
debutent en la matiere et pour lesquels lo 
solution offerte par Apple (Mocintosh et 
LaserWriter) est actuellement une des 
plus simples a mettre en aeuvre. 

A travers un panorama des principaux 
logiciels de troitement de texte et de 
mise en page, les auteurs ont choisi de 
presenter, 6 f'aide d'exemples concrets, 
les manipulations de base qui permet- 
tront a chacun de reoliser des documents, 
simples ou complexes, et de maitriser cet 
outil de travail; 

BYMQUSS—61 bd Saint-Germain, 75240 PARIS 
Tel (1) 46.34.21. 99. 160 pages -200F tic. 

* SUPERFORCE (Paul Davies) 
(traduit par A , Bouquet) 

Vous arrive-t-il de lire et, ce faisant, de 



vous interesser oux grandes questions 
scientifiques de notre epoque ? Je suis 
sur que Qui. La micro-informatique 
mene a tout, e'est bien connu, a condi- 
tion d en sortir ! 

Pendant trente ons. Albert Einstein a 
poursuivi un reve : mettre sur pied une 
iheorie unifiee (des chomps) qui 
pllisse, en un cadre unique,, englober 
f'infiniment petit et I'infiniment grand. 
Helas ! malgre une belle obstinalion, 
il n'a jamais ete en mesure de concreti- 
ser son grand projet, Les developpe- 
ments octuels de la physique sont 
peutetre en train de reoliser le vieux 
reve du pere de la Relativite. Dans les 
infimes fractions de temps qui ont suivi 
le Big Bang, I'Univers, dans son entier, 
aurait ete sous la domination exclusive 
dune force unique, une Superforce. 
Suivez Paul Davies et vous en saurez 
davantage sur I'histoire et le detail 
theorique du pro|et des theoriciens : 
reussir I'unification des quatre forces 
fondamentales qui regissent toute 
chose : la gravitation, I'electromagne- 
tisme et les deux interactions, fort et 
faible. 

PAYOT 106, bd Saint-Germain, 75006 PARIS 
324 pages — UOFttc. 



PAUL DAVIES 

Superforce 

Recherches pour 
une theorie unifiee 
de I'univers 
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Ctement RENARD 

DESASSEMBLACE 



S'il est facile, par programme, de disassembler A instructions (pourquoi A ? parce que le 
nombre destructions a traiter efait habituellement mis dans I'Accumulateur), la meme 
operation pose un probleme sur I'Apple IIGS. En effet, jusqu'd plus ample informe, il appa- 
rait que celui-ci ignore la routine $FE63 (LIST2) r qui se chargeait de tout le travail. 
Heureusement, il reste possible, en utilisant $F8D0 (INSTDSP) de disassembler une instruc- 
tion. Ill suffit alors de s'offrir un petit compteur, puis d'incrementer le PC ($3A-$3B) de la lon- 
gueur de ('instruction que I'on vient d'afficher (on trouve celle-ci en $2F,.. mais elle est 

egale a L - 1 ) pour remplacer LIST2 defaillante. 

La demonstration ci-apres permet de visualiser les trois methodes (la routine 65C02 et GS 
est plus courte d'un octet car elle utilise $1A... qui incremente I'accumulateur), N'oubliez 
pas les virgules, a la fin des lignes 260 et 270 (16 pour la premiere et 1 pour la seconde). 




DESASS.BAS 



100 TEXT: PRINT CHR$ (21): HOME 

110 VTAB 12: PRINT "DESASSEMBLAGE DE A 

INSTRUCTIONS" 
120 PRINT "Routine Apple // 6502-65C02 et 

GS": GOSUB 220 
130 D = 812: GOSUB 230: REM Apple // 

6502-65C02 et GS 
140 HOME : VTAB 12: PRINT "ANCIENNE ROU 
TINE COURTE": PRINT : PRINT "utilisant 

$FE63": PRINT "DESASSEMBLAGE DE A 

INSTRUCTIONS": GOSUB 220 
150 GOSUB 230: REM Routine 6502-65C02 (de 

768 a 796) 

160 HOME : VTAB 12: PRINT "ROUTINE POUR 
APPLE W-65C02 OU GS": PRINT "AFFI 
CHAGE AVEC ROUTINE 1 ET CALL 8192" 

170 PRINT : INVERSE : PRINT "1A";: NORMAL : 
PRINT " INCREMENTE L'ACCUMULATEUR" 

180 GOSUB 220: GOSUB 240 

190 HOME : VTAB 12: PRINT "(M)ENU DE DIS 
QUETTE ";: CALL - 198: GET R$ 

200 PRINT : IF R$ - "M" THEN PRINT CHR$ 
(4)"RUN MENU,D1" 

mimmimniiiiMMiiimiMtMMMiMii ■ ■ ■ i 

TREMPLIN MICRO 



210 HOME : END 

220 CALL - 198: POKE 49168,0: WAIT 
49152,128,127: POKE 49168,0: PRINT : 
RETURN 

230 FOR I = 768 TO D: READ R: POKE l,R: NEXT 
: CALL 768: RETURN 

240 FOR I = 768 TO D: READ R: POKE l,R: NEXT 
: RESTORE : FOR I = 8192 TO 8243: READ 
R: POKE l r R : NEXT : CALL 8192: RETURN 

250 DATA 169,24,133,6,160,0,162,3,134,59, 
132,58,32,208,248,24,230,47,165,47,101, 
58,168,144,2,230,59,198,6,208,235,44, 
16,192,173,0,192,16,251,44,16,192,76,88, 
252 

260 DATA 169,24,133,6,160,0,162,3,134,59, 
132,58,32,99,254,44,16,192,173,0,192,16, 
251,44,16,192,76,88,252 

270 DATA 169,24,133,6,160,0,162,3,134,59, 
132,58,32,208,248,24,165,47,26,101,58, 
168,144,2,230,59,198,6.208,236,44,16,192, 
173,0,192,16,251,44,16,192,76,88,252, 
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DESAS.6502-65C02 





A Q 


1 9 
1 




1 HA 


t 1 o — 1 
5 1 O 






J J 






J 1 r\ 


•J 0' 






AO 


nn 

U w 




1 HY 








A9 


wo 




i nx 


f HOT 




308 


86 


3B 




STX 


$3B 


Adresse de depart dans $3A-$3B 


30 A 


84 


3A 




STY 


$3A 




3GC 


20 


63 


FE 


JSR 


$FE63 


LIST2 fait tout le travail. 


30 F 


2C 


10 


CO 


BIT 


$C010 




312 


AD 


00 


CO 


LDA 


$C0GG 




3T5 


10 


FB 




BPL 


$0312 


Attente d'une louche et HOME. 


317 


2C 


10 


C0 


BIT 


$CG10 




31A 


4C 


58 


FC 


JMP 


$FC58 _ 





ATTENTION ! 

Ne pas utiliser 
$FE63 sur le nou- 
vel Apple HGS ! 



DESAS.GS (et 65C02) 



00/0300 : 


A9 


18 




LDA 


£18 


00/0302 ; 


85 


06 




STA 


06 


00/0304 : 


AO 


00 




LDY 


£00 


00/0306 : 


A2 


03 




IDX 


£03 


00/0308 : 


86 


3B 




STX 


3B 


00/030 A: 


84 


3A 




STY 


3A 


00/030C: 


20 


DO 


F8 


JSR 


F8D0 


00/030F: 


18 






CLC 




00/0310: 


A5 


2F 




LDA 


2F 


00/0312 : 


1 A 






INC 




00/0313: 


65 


3A 




ADC 


3A 


00/0315 : 


AB 






TAY 




00/0316 : 


90 


02 




BCC 


031A 


00/0318 : 


E6 


3B 




INC 


3B 


00/031 A: 


C6 


06 




DEC 


06 


00/031 C: 


D0 


EC 




BNE 


030A 


00/031 E : 


2C 


10 


CO 


BIT 


C010 


00/0321 : 


AD 


00 


CO 


LDA 


C00O 


00/0324 : 


10 


FB 




BPL 


0321 


00/0326 : 


2C 


10 


C0 


BIT 


C010 


00/0329 : 


4C 


58 


FC 


JMP 


FC58 



] 
] 
] 



Nombre destructions dans A et dans compteur $6 
Adresse de depart (partie basse et partie haute). 

PC = adresse de depart 

INSTDSP disassemble une instruction, 

Annulation de la retenue {obligee). 

La longueur de I'instruction (- 1 ) est dans $2F. 

A = A + 1 pour longueur vraie. 

Partie basse PC. 

A passe dans Y. 

5aut si pas de retenue. 

Sinon partie haute PC incrementee. 

Compteur decrement^ et suite jusqu'a 1 inclus. 



On attend une louche pour nettoyer I ecran. 



Jean-Noel GORGE 

prend la direction du marketing chez APPLE COMPUTER FRANCE 

Depuis 17 ans dans I'informatique, Jean-Noel GORGE est devenu -- le 1" decembre 
- Directeur du marketing d'APPLE COMPUTER FRANCE. 

Apres avoir passe 6 ans chez Bull, 6 ans chez Cop Gemini Sogeti, entrecoupe de 5 ans 
chez Digital Equipement, il apporte avec lui une solide experience marketing bien 
sur, ma-is egalemenf une experience du terrain ou il a r&gulierement exerce des res- 
ponsabilites importantes. 

Sous I'autorite directe de Jeon CALMON, Directeur General, Jean-Noel GORGE 
assume la direction du departement qui regroupe la publicite, les relations presse. 
les relations publiques, la promotion., le developpement et le marketing des produits. 
ainsi que les relations directes avec les utiltsateurs par I'intermediaire du club Apple. 
Originaire de La Rochelle, HEC 1969, pere de 3 garcons, Jean- Noel GORGE est un pas- 
sionne de rugby, de voile et de bricolage. ■ 
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INITIATION 



DOS 



ProDOS 




NESTOR 



EPFETS CRAPHIQUJS 



Petite routine permettant de jolis effets de bar- 
res paralleled verticales... suriout quand on pes- 
sede un ecran couleur. 

Pour un arret momentane, maintenir la rouche 
POMME OUVERTE enfoncee, puis pressez n im 
parte quelle touche pour continuer. 



F3D8 

F3DB 

F3DE 

F3E0 

F3E2 

F3E4 

F3E7 

F3EA 

F3EC 

F3EF 

F3F2 

F3F4 

F3F6 

F3F8 

F3FA 

F3FC 

F3FE 

F400 

F402 

F405 

F406 

F408 

F40A 

F43C 

F40E 

F410 



Que fait $F3DB ? 



2C 
2C 



55 ca 
52 ca 



A9 40 
00 08 
A9 20 

2C 54 CO 
S3 CO 
E6 

57 CO 
50 CO 



2C 
85 
A.D 
AD 
A9 00 



85 
AS 
85 



1C 
E6 
IB 



AO 00 
84 I A 



AS 
91 
20 
C8 
00 
66 
A5 
29 
DO 
60 



1C 
I A 

7E F4 

Ft 
18 
IB 
IF 
EE 



BIT 
BIT 
LDA 
BNE 
LDA 
BIT 
BIT 
5TA 
LDA 
LDA 



SC055 

tCB52 

£$40 

SF3EA 

C$20 

SC054 

$C053 

$E6 

$C057 

SC053 



] 



IDA £SGfO 
STA $K 
LDA SE6 



STA 
LDY 
STY 
LDA 
STA 
JSR 
INY 
BNE 
INC 
LDA 



SIB 

£S00 

$1A 

SIC 

($1A).Y 

$F47E 

$F3FE 
SIB 
SI 



AND £$1F 
BNE SF3FE 
RTS 



PAGE 2 
GRAPHIQUE 
40 dans A el 
rout 

Concerne HGR 

$40 dans $E6 
Haute resolution 
graphique 
dans A 
ei SIC 

$40 (ou $23) 
dans SIB 

dans $IA 

iz zone 
$4030 a 5FFF 
(ou mOO a 
S3FFF dons le 
cos de $F3E2 
c'esl-6-dire 
HGR) est ini- 
tialise (tous 
les octets 5 9). 



100 
110 

120 
130 
140 
150 



160 
170 



190 



EFP.HGR.B 



PRINT CHR$ (21 ): HOME : GOSUB 1 70 

FOR I = TO 255: POKE 772,1 : CALL 768: 
FOR J = 1 TO 15: BZZ = PEEK (49200) 

IF PEEK (49249) > 127 THEN GOSUB 180 

NEXT : NEXT 

GOSUB 180: TEXT 

VTAB 22: PRINT "(M)ENU DE DIS- 
QUETTE ";: GET R$: PRINT : IF R$ = "M" 
OR R$ = "m" THEN PRINT CHR$ (4)"RUN 
MENU.Dl" 

HOME : END 

FOR I = 768 TO 791: READ R: POKE l,R: 
NEXT : RETURN 

CALL - 198; POKE 49168,0: WAIT 49152, 

128,127: POKE 49168,0: RETURN 

DATA 32,216,243,169,255,162.32,160,0,132, 

229,145,229,200,192,248,144,249,230,230, 

202,208,240,96 



EFF.HCR2 



300 


20 


D8 F3 


JSR 


$F3D8 


HGR2. 


303 


A9 


FF 


LDA 


£$FF 


Valeur poquee a partir du Basic. 


305 


A2 


20 


LDX 


£$20 


X et $20. 


307 


AO 


00 


LDY 


£$00 "I 


Y = pour initialiser $E5. 


309 


84 


E5 


STY 


$E5 


30B 


91 


E5 


STA 


{$E5),Y 


On depose la valeur de A en $E5 


30D 


C8 




INY 




Y = Y + 1, 


30E 
310 


CO 
90 


F8 
F9 


CPY 
BCC 


£$F8 "1 
$030 B _ 


On va jusqu'a $F7 inclus. 


312 


E6 


E6 


INC 


$E6 


Adresse haute majoree. 


314 


CA 




DEX 




Pointeur decremente. 


315 


DO 


FO 


BNE 


$0307 


Jusqu'a 1 inclus, on continue. 


317 


60 




RTS 




Basic. 
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Votre bibliotheque 
INFORMATIQUE 



• MACASTUCES 
(2* edition) 
par Henri Thiriez 

Herve Thiriez, professeur au centre HEC- 
ISA, est par ailleurs le distingue redac- 
ted en chef de notre confrere POM'S... 
lequel s'est foujours interesse 6 I'enfant 
cheri d'Appfe : le celebreMac, Herve Thi- 
riez est done particulierement qualifie 
pour aider les utilisoteurs de la bete a en 
tirer le meilleur parti, meme si — convi- 
vialite oblige — utiliser des astuces 
parait superflu ovec une machine aussi 
performante. 

Mais il y a ce que Ton sait et ce que I on 
ignore. La pluparl des gens lisont peu ou 
mal la documentation concernont leur 
materiel, il e^t certain que la majorite 
des personnes travail lant sur Macintosh 
n J en connoissent pas la moitie des res- 
sources. L'ouvrage d'Herve Thiriez leur 
permettra de les decouvrir en moins de 
303 pages itlustrees par de nombreux 
ecrans. Les moins courogeux pourront 
dailleurs s'olfrir une disquette d'occom- 
pagnement que nous n'avons pas ete en 
mesure de tester. 

EDITIONS DU P.S.I. 

BP 86. 77402 LA ON Y s MA RNS 

288 pages 160 f ttc. 



MACASTUCES 

MAC £T MAC PLUS 

T edition 





• ELEMENTS ^INTELLIGENCE 
ARTIFICIELLE 

(H. FarrenyetM. Ghallab) 

Henri Farreny enseigne Intelligence ortifi- 
cielle depuis une douzaine d'annees. Malik 
Ghallab, charge de recherche au CNRS, est 
respon sable de I act i vile I A au sein du 
groupe Robotique et intelligence artificielle 
du Laboratoire d'automatique et d'onalyse 
des systemes. La competence des auteurs 
est reconnue et ce n'est pas par hasard que 
leur livre constitue lun des volets dune 
serie tres serieuse : Troite des Nouvelles 
Technologies, Serie Intelligence artificielle. 
Et e'est bien d'un troite qu'il s'agif, complet 
et structure, bourre d'exemples el de 
remarques, illustre oussi souvent qu'il le 
faut, serieux comme il convient a tout 
ouvrage de cette nature, mais pas du tout 
rebarbotif. 

Je ne crois pas utile d'en detailler la table 
des matieres ; e'est un survol methodique 
de toutes les questions suscitees par des ini- 
tiates un peu magiques : IA... comme intelli- 
gence ortificielle. On n'explique pas un livre 
comme celuki ; il est de loin preferable de 
louvrir et d'en commencer la lecture, 
crayon en main. Felicitations aux Editions 
Hermes pour la presentation sabre et solide 



par NESTOR 

de ce traite. Un bon investissement que ces 
368 pages de cours magistral ! 

EDITIONS HERMES. St. rue Sennequin, 7S0I7 PARIS 
368 pages sous couverfure carlonnee — 240 F Ik- 

• LES SECRETS 
DE VOTRE MACINTOSH 
Equipe Soff-Loi$ir$ 

L avertissemenl au lecteur est explicite : "Ce 
manuel contient uniquement des informa- 
tions praliques et concretes". C'est vrai. 
SOFT-LOISIRS diffuse des logiciels du 
domaine public moyennant le versement 
d'une somme tres roisonnable (50 F pour ne 
rien vous cocher). En verite, c'est un peu 
plus complique que cela, mais je suis per- 
suade que les anirnoteurs de Soft-Loisirs se 
feront un plaisir de vous lournir une docu- 
mentation detaillee sur un systeme de diffu- 
sion tout a foil original. En tout cos, lo bro- 
chure que j'ai sous les yeux [je ne suis pas 
un specialists du Macintosh) me parait inte- 
ressante. Elle ne compte que 48 pages, mais 
fournit un maximum de renseignements sur 
les accessoires de bureau, le bureau, le Fin- 
der, MacWrite, MS.Word, MacPaint, Mac- 
Drow, Page Maker, etc. Elle nous prouve 
aussi qu'il est facile, avec un Mac et une 
LaserWriter, de concevoir une brochure 
prete a im primer. 

SOFHQISItS l avenue Jeon Jauces. 94M AffK SUf S&NE 
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DE 
VOTRE 
MACINTOSH 
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TURB O PASCAL 

est disponible sur le MAC 

Quand on commence a decouvrir ie nouvel Apple IIGS, on comprend tres vite que, deci- 
dement, tout ce qui concerne le Macintosh pourrait trouver des pralongements sur le 
GS. On peut en tout cas le souhaiter quand on constate I'extraordinaire rapidite de 
compilation du TURBO PASCAL de BORLAND INTERNATIONAL. 

La, au moins, on ne se moque pas du monde ! TURBO PASCAL comprend non seulement 
les deux indispensables disquettes 3, 5 pouces (copiables pour votre usage personnel), 
mais une vraie documentation, avec de tres nombreux exemples. Pour Pinstant, c'est 
encore en anglais, mais la version franchise arrive et I'echange sera peut-etre possible 
au moment ou paraitront ces lignes. Bravo ! BORLAND ! 




OUI, TURBO PASCAL 

POUR LE MAC EST DISPONIBLE ! 

L'ufilisateur peut compiler et executer jusqu d huit pro- 
grammes differents — ou huit versions du meme pro- 
gramme — en meme temps lors du developpement en 
Turbo Pascal. La possibility d'observer le fonctionne- 
ment de plusieurs programmes ou de diverses ver- 
sions du meme programme, dans des fenetres sepa- 
rees, permet d'accelerer le developpement et d'ame- 
liorer I'efficacite des programmers. 

Turbo Pascal pour le Moc dispose destructions spe 
ciales pour la gestion d une tortue graphique. Les 
nouvelles possibilites graphiques permettent une 
manipulation plus facile des objets sur lecran du 
Mac. Le concept de tortue graphique decoule d une 
idee de Seymour Paperl et de ses collaborateurs, au 
Massachussets Institute of Technology (MIT). Papert 
voulait simplifier la creation de graphiques pour 
ceux qui sont peu habitues aux "coordonnees carte- 
siennes" standard. II inventa done une "tortue" 
capable d"avancer" d'une certaine distance sur 
I'ecron et de tourner d'un angle donne, en laissant 
une trace de son passage. 

La tortue graphique opere dans une fenetre occu- 
pant la totalite de l ecran, d une facon assez sem 
blable d ce que font les programmes de Quickdraw. 

TREMPLIN MICRO 



Les procedures de gestion de la fenetre de la tortue 
peuvent faire, de n'importe quelle partie de lecran 
du Mac, la zone active, en prevenant leffacement 
du rests de l ecran. 

La tortue peut aussi etre utilisee en combinaison 
avec Quickdraw. 

Les instructions de gestion de la tortue pour le Mac 
comprennent PenUp (Levecrayon), PenDown (Bais- 
secrayon), Forwd (Avonce), Back (Recule), Heading 
(Fixecap), TurnLeft (Gauche), TurnRight (Droite) et 
TurtleWindow (Fenetre). 

L'ensemble Turbo Pascal pour le Mac comprend 
oussi des exemples concernant !e programme de 
gestion du reseau local AppleTalk, le systeme de 
synthese de parole Macintalk, une pendule acces- 
soire du bureau, un progromme d'impression, et 
bien d'autres encore. Tous les programmes exem- 
ples sont fournis complets avec leur code source. 

Pour MAC. BORLAND INTERNATIONAL offre egale- 
ment un gestionnaire de bureau electronique. Side- 
Kick et un systeme de gestion de base de donnees 
relationnelle : Reflex pour le Mac. 

TURBO PASCAL pour le Mac est disponible sur le 
marche francais et il est vendu au prix de 995 francs 
hors taxes jusqu'au mois de mars 1987. (Suite page m). 

■■■■■■UMiwMiMmmmmiiiniiimiin mm 
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TURBO PASCAL pour le Mac : f Icfie technique 



Le systeme de developpement Turbo Pascal pour le t 
de I'environnement Mac, y compris la structure hie 
lants et de boTtes de dialogue guidant I'utilisateur 6 1 
principales de Turbo Pascal pour le Mac sont : 

• Vitesse de compilation de 12000 lignes par 
minute. 

• Une "Unite de structure", ou la compilation 
seporee de sous- programmes cree des 
modules ou unites, qui peuvent etre lies a 
n'importe quel programme en Turbo Pascal. 
Cette caracteristique unique permet de 
creer des programmes modulaires, ainsi 
que des bibliotheques de sous-programmes 
faciles a integrer dans les projets plus 
importants, Grace a sa structure modulaire, 
Turbo Pascal pour le Mac utilise efficace- 
ment la memoire du Mac, et diminue done 
l espace memoire necessaire pour executer 
des programmes importants. 

• Fenetres d'edition multiples, permettant de 
passer facilement d'une fenetre a I'autre, et 
de modifier, compiler ou executer separe- 
ment le contenu de chacune des fenetres. 

• Options de compilation, presentees sur un 
menu, et permettant de choisir la compila- 
tion sur disque ou en memoire, ou la compi- 



le utilise toutes les possibility et caracteristiques 
rchique des fichiers, II dispose de menus derou- 
Jvers Jes choix et les options. Les caracteristiques 

lation suivie immediatement d'execution. 
Les etapes de developpement et de mise au 
point sont tres fortement accelerees, 
puisqu'il n'y a plus a changer de programme 
pour compiler, executer ou modifier un pro- 
gramme en developpement. 

• Compatibilite avec le Pascal Lisa ; les sous- 
programmes crees par chacun des systemes 
de developpement peuvent etre compiles et 
executes par I autre avec un minimum de 
modifications. 

• Compatibilite avec le systeme hierarchique 
de gestion des fichiers du Mac. De plus, il 
est possible de preciser le volume et le dos- 
sier par defaut pour les fichiers de compila- 
tion et simplifier la modification des sous- 
programmes. 

• Capacite a utiliser toute la memoire dispa- 
nible sur le Mac, sans aucune limite. 

• Possibility d'appeler les sous-programmes 
de la boTte a outils du Mac. 




Offrez-vous les disquettes 
de programmes de 

TREMPLIN MICRO 

Au choix : DOS 3.3. ou ProDOS. 

(ProDOS ne fonctionne qu'apres 
avoir lance le systeme avec une 
disquette MASTER). 



Utilisez le bulletin de commande de la 
page 75... ou recopiez-le. 
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] INITIATION 

OBSERVATION 



JEU VISUEL 



Jeu visuel sans pretention, mais utilisant les ressources d'un ecran couleur eventuel. l! fait appel a une table 
de formes qui ne contient que les codes d un carre. Le principe du jeu est simpSe el on aura tout compris apres 
avoir lu les lignes 60(3 et 610... puis tape un RUN experimental, On notero que le programme ninterroge pas 
le joueur et ne memorise done pas telle ou telle reponse. On se contente d'observer, puis de comparer le 
resultat de ces observations a la solution fournie por le micro. Tel qu'il se presente, ce jeu est done indivi* 
duel, mais il est facilement modifiable, Ne vous privez done pas du plaisir de I'ameliorer I 



ROT donne la position 
angulaire de la fofme 
tracee par DRAW (0 6 255}. 
On peut I'utiliser en mode 
direct. 



SCALE est I'echelle de la 
forme (veeteur*s). 
Va de 1 a 255, mais corres 
pond a I'ograndissement 
maximum. 



HCOLOR permet de defi- 
nir la couleur. 
On compte 8 couleurs, dont 2 
blancs et 2 noirs. Les couleurs 
varient suivant que la 
colonne est PAIRE ou IM- 
PAIR*. 



100 

110 
128 
130 
148 
159 
168 
170 

188 
198 



TEXT : NORMAL i PRINT CHR* (21); HOME 
0T= 0: GOSUB 550 
HGR : HC0LQR= 1 



REM Trace de tous les carres 



***** 



PAIRE 


IMPAIRE 


1 VIOLET 


2 VERT 


5 BLEU 


6 ROUGE 


et 4 = NOIR 


3 et 7 = BLANC 



LOMEM devra etre fixe a 
16384 (au-dessus 
de la page HGR) si vous desirez 
utlliser le jeu un grand nombre 
de fois. Tapez une ligne : 
n LOMEN: 16384 



218 

228 
230 
240 

258 

268 

270 
288 

290 

309 

316 
328 



POKE 49234,8! SCALE= 68 
DRAW 1 AT 65,65 

51 = 19 4 INT ( RND (I) * 3) : REM Cote Ma 
r i abl e 

SCALE= SI : HC0L0R= 5 

FOR I ■ 1 TO 5: DRAW 1 AT (58 * 1) - SI + 
7,160: NEXT 

1 = 1+ INT < RND CD * 3) s RESTORE : FOR 
J = 1 TO I : READ S : NEXT 

D = 1: SCALE= S:H=2: IFS=40 THEN D = 
8 

HC0L0R= H 

DRAW 1 AT 280 + D f 81 

HOME : VTAB 23; PRINT "Le grand carre est 

IF S > 48 THEN PRINT w TROP GRAND";: GOTO 
280 

IF S < 48 THEN PRINT " TROP PETIT";: GOTO 
280 

PRINT rt CORRECT"; 

MTAB 24: HTAB Is PRINT "Les pet its carres 
sont "j 

IF SI > 20 THEN PRINT u trop grands";: GO 
TO 330 

IF SI < 20 THEN PRINT " trop pet its";: GO 
TO 338 

PRINT B corrects"; 



C346 
F58E 
003A 

003A 
C654 
0A8C 

3584 
1A1E 

6619 
EA58 

5A65 
FFDA 
A3BD 

6157 

C0A0 

87BC 

7768 

8FF3 

421E 

I93A 
2CBE 
883A 
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330 

348 

350 
368 
378 

380 

399 
489 
410 
420 

430 
440 
450 
46B 

470 



480 

490 
500 
510 
520 
530 
540 
559 



566 

580 
590 



600 



610 



626 
636 
648 



GOSUB 460: POKE 49235,0: GOSUB 460: GOSUB 
479: POKE 49234,0: GOSUB 460: POKE 49235,0 

REM Encore un tour, ou terrnine ***** 

HOME : VTAB 23: PRINT "<S)UITE (T)ERMINEE 
"<M)ENU DISQUETTE " ; : CALL - 198: GET RS 
IF W = "M" THEN TEXT : HOME : PRINT : PR 
INT CHR* <4>"RUN MENU , Dl " 
IF R* = "S" THEN 420 
IF W < > "T" THEN 370 
TEXT : HOME : END 

HCOLOR= 6: HPLOT 0,0: CALL - 3082: GOTO 1 

10 

■ 

REM Sous-programmes cT a-f 4 i chage ***** 

CALL - 198: POKE 49168,0: WAIT 49152,128, 
127i POKE 49168,0: RETURN 
SCALE- SI: HCOLOR** 1 : D ■ SI - 28 : FOR I = 
1 TO 3: DRAW 1 AT SI + 5, ((40 + D) * I) - 
15: NEXT 

FOR I = 2 TO 3: DRAW 1 AT ( (40 + 0) * I) - 

15,105 ♦ D: NEXT 

IF S = 4B THEN H » 1 

SCALE= S: HCOLOR= H: DRAW 1 AT 85,45 

RETURN 

REM Table de -formes <le carre!) ***** 

POKE 768,1: POKE 769,0: POKE 770,4: POKE 7 
71,0: POKE 772,33: POKE 773,63: POKE 774,5 
4: POKE 775,45: POKE 776,28: POKE 777,8: P 
OKE 232,0: POKE 233,3 

REM Petite presentation du jeu ***** 

UTAB 6: HTAB 14: INUERSE : PRINT " 

"i FOR I = 7 TQ 9: UTAB I: HTAB 14: 

PRINT n ";: HTAB 28: PRINT ■ : NEXT : HTA 

B 14: PRINT 1 ~ " : NORMAL : KfJ 

AB 8: HTAB 16: PRINT "OBSERVATION" 

UTAB 15: PRINT "Cinq pet its carr*s et un p 

lus grand uontfigurer pres d'un septieme.. 

.dans lequelils doivent exacternent s'encas 

trer 

PRINT : PRINT "Helas! toutes les pieces du 

puzzle, sau-fle cadre original, peuvent se 

reveler outrop grandes, ou trop petites, 

ou encorecorrectes. A VOUS D'Y VOIR CLAIR 1 
it 

GOSUB 460: RETURN 
■ 

DATA 37,40,43 



EC08 
00 3A 

083A 

D56D 

6125 
C9E4 
A9B? 
5514 

64F4 
003A 

003A 

B419 

C191 

9D62 
C241 
C4C6 
63B1 
003A 

083A 



Q723 
00 3A 

003A 



ID30 



B10B 



79BB 
8235 
883A 
5650 



DRAW vo dessiner toute 
forme dont on lui 
fournit le numero. II est indis- 
pensable de renseigner la 
machine sur I'adresse ou se 
irouve la table de formes 
($E8-5E9). C'est ce que font 
les deux derniers POKE de lo 
ligne 550. 



RND fournit un nombre 
aleotoire. Pour obte- 
nir un nombre compris entre 
et 5 r on utilise la formule 

AL = INT(RND(1) * 6). 

Pour obtenir un nombre entre 

let 6: 

AL = 1 + fNT(RND(l) * 6). 

ou encore 

AL = INT(RND(1)**+1) 



CARRE f correspond aux 

codes suivonts ; 
$01 00 04 0D 
$21 3F 36 2D 1C 00 
La premiere ligne indique le 
nombre de formes puis le nom- 
bre d'octets separant lo forme 
du debut de la table. La 
seconde represente les codes 
de lo forme I (le carre). On 
pourrait partir d'une forme 
double en utilisant : 
$12 3F 24 24 2D 2D 3636 3F00 



PETITS CARRES 

SCALE vane de 19 a 21 (20 
etant la valeur correcte). 
Cela se passe 6 la ligne 170. 



CARRE MO YEN 
Ce sont les valeurs de la ligne 
640 (DATA) qui sont aleatoi 
rerhent employees (ligne 
200). La variable D (ligne 
210) permet d'afficher le 
carre dons des colonnes 
autorisant ('utilisation de la 
couleur choisie. ■ 
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Nicole BREAUD-POULIQUEN 



I NTRODUCTION 



Parmi les OR1GINALITES du microprocesseur 65816, 
nous avons remarque : 

• uri bus d'adressage sur 24 bits, c'est-6-dtre un 
espace d'adresses compris entre $000000 et 
SFFFFFF soit 16777216 octets en acces direct ; 

• un registre Banc de programme sur 8 bits conte- 
nant les poids forts des adresses des instruc- 
tions du programme en cours d execution ; 

• un registre Banc de Donnees de 8 bits contenant 
les poids forts des adresses des donnees a 
exploiter ; 

• en plus des modes d'adressage particuliers 
dassiques : IMMf^DIAT, INHERENT, ACCUMU- 
LATEUR ; 

• des extensions des modes generaux d'adres- 
sage offings par I'lndirection et Indexation : 

— 5 modes en adressage ABSOLU ; 

— 5 modes en adressage PAGE ZERO ou 
DIRECT ; 

— 2 modes en adressage RELATIF ; 

— 2 modes d'adressage RELATIF dans la Pile ; 

• des registres d'INDEX X et Y sur 8 ou 16 bits 



• un registre pointeur de PILE sur 1 6 bits 

• un registre DIRECT pointeur de PAGE ZERO sur 
16 bits. 

Ces deux derniers registres permettant rimplantation 
DYNAMIQUE de la PILE et le la page ZERO dans le pre- 
mier banc de memoire de $000000 a $00BFFF. 
II s'agit done d'un systeme d'adressage tres souple 
permettant une SEGMENTATION des programmes : 
un segment de Donnees ou un segment de Code est 
exploitable facilement quel que soit le banc de 
memoire ou il est charge ou deplace. 
Le probleme interessant qui decoule de ces remar- 
quabies atouts du microprocesseur et de cet attrait 
de la programmation par segmentation est celui de 
la GESTION dynam'tque de la memoire. 
Nous allons confier cette tache ou MEMORY 
MANAGER, un outil dtsponible en MEM, qui est un 
systeme de reservation de places de memoire en 
temps reel. Au niveau de I'tmplantaion des seg- 
ments de programmes, le m ait re d'eeuvre est le 
System LOADER qui fait partie du systeme d'exploi- 
tation ProDOS16. 



DEFINITIONS 



Chtff re einolre ou Bit : Note bi de valeur ou K 
Chifffe Hexadecimal : Note Hi de valeur 0, 1 , 2, 3, 4, 5, 

6, 7, 8, 9. A, B, C, 0, E ou F, 
Equivalent a une combinaison 
de 4 bits. 

Octet: Combinaison de 8 bits notee 

b7b6b5b4b3b2blb0. 
exempt: %00101flll 

ou BYTE : 2 chiffres hexadecimaux SHpHm 

(_-Hp--)(--Hm--) $2B 
Hp - 4 bits les Plus significatifs 
Hm = 4 bits les Moins significatifs 



MOt : 2 octets (WORD) ou 4 octets (LONG) 
examples : $0100 $00E06028 
MpMm Lp Lm 

Adresse : 24 bits (6 chiffres hexadecimaux) 
b23"bl6Bancou Badr 
b!5--b8 Adresse Haute ou adH 
b7— b0 Adresse Basse ou adL 
exempt: $E100A8 : adl = $A8, adH = $00, 
Badr = $El 

Pointeur : 2 ou 4 octets ayant pour valeur une adresse. 

exemple: S00FE013F (Hp = $00) (SutopopU) 



HontJIei : 4 octets ayant pour voleur une adresse, 
laquelle contient un pointeur : 
exemple : $00E06fl28 qui contient $00000000, 
l'adresse de debut d'une page 

zJro, 

Segment ; Bloc d'une certoine taille constitue" d'octets 
de memoire adjaeents. L'adresse du l ,r 
octet de ce bloc est enregistree dans le 
pointeur du bloc, appele POINTEUR MAI- 
TRE ; la position en memoire du pointeur- 
mottre ne change pas alors que le segment 
peut etre de'place. Ce qui conduira au sim- 
ple chongement de voleur du pointeur- 
maftre. Pour le programmeur chaque bloc 
ou segment est def ini par : 

* sa longueur (un mot de 4 octets) ; 

• l'adresse de son pointeur-maTtre appe- 
lee handle du bloc (4 octets) ; 



* son numero d'identificotion (un mot de 2 
octets) ■ 

* ses attributs ; fixe ou non, aligne sur une 
page, purgeable, etc... (16 bits). 

Page Zero: Segment de 256 octets situe dans le banc 
$00 dont l'adresse du l er octet est contenue 
dans le registre Direct lorsque cette page 
est en activite. Les donnees sont exploiters 
avec le mode d'adressage Direct ou seuie- 
ment 8 bits sont necessaires pour leur loca- 
lisation dans cette page. 

Wle : Segment situe dons le bone $00 dont I'acces 
est normalement fait sur le mode dernier 
entreV premier sort! grace aux instructions 
d'empilement et de defilement, Le registre 
Stack Pointer pointe la premiere position 
disponible sur la pile. Le remplissage de la 
pile se fait par adresses decroissantes. 



Appels des f onctions d Ou tils 



Soit une fonction (ou un sous-programme) appelee par 
un autre programme qui lui trans met des para met res 
pour que celle d lui renvoie un ou des re sultats . Ces don- 
nees d'entree et de sortie d'une fonction peuvent transi- 
ter dans la pile r e'est le cas des fonctions doutils dispo- 
nibles dans le GS (en MEM et en MEV). 
Pour appeler une fonction d'outil, il est essentiel de faire 
d'abord une place suffisante sur la pile ou lo fonction 
tiendra a notre disposition les resultats demanded, puis 
d'empiler les parametres d'entree ; I'appel lui-meme 
consiste a charger le registre X du code de la fonction 
demandee avant de faire un saut au sous- program me 
debutant en El/0000 qui est ('unique point d'entree de 
TOUTES les fonctions. C'est ('instruction JSL qu'il faut uti- 
liser puisque le programme appelant peut se situer dans 
n'importe quel autre banc de memoire vive, 

LOX $code 

JSL El 0000 

Apres l execution de la fonction, if faudra tester le bit 
Carry pour etre sur qu'il n'y a pas eu de probleme. Le 
code de l erreur est dans I'accumulateur si C= 1, Si C=0, 
alors le r&ultat, s'il est attendu, se trouvera sur le som- 
met de la pile. Par exemple un pointeur sera NIcupeYe' 
sur la pile par : 

PLA 

STA Adr 
PLA 

STA Adr+2 

les octets les plus significants etant les derniers sortis. 
Une fois tes resultats desempiles, le pointeur de pile se 
doit d'etre 6 la voleur qu'il avait avant de de" outer Tempi- 
lement des parametres qui pre'parait I'appel de la 
fonction. 



le Memory Manager 

Supposons qu'un programme d'application ait ete charge 
en m&noire vive par les soins du System Loader sous 
ProDOSlo. Le Memory Manager lui a reserve un bloc et 
ce bloc ou il est implante porte un numero d'identifico- 
tion (1003 par exemple), Ce numero doit absolument 
etre connu par le programme si celui-ci veut reserver 
d'autres blocs de donnees pendant son execution, blocs 
qui porteront done le numero du programme qui les a 
demanded au Memory Manager. 

Par souci d'efftcacite, ce numero est justement renvoye 
por la fonction $0202 ou _MMStaitup, fonction qu'il est 
indispensable d'appeler au debut du programme d'appli- 
cation. Voici eel appel : 

PEA 0000 on empile 2 octets de valeur pour que 
la fonction puisse y stocker le N°. 

LOX £0202 
JSL EIO000 

PLA Les 2 octets sont desempiles et mis dans 

I'accumulateur. 
STA id id contiendra le N a d'identificotion du 

programme en cours. 

Par exemple la fonction NewHandle H:4 (LG:4 ID:2 AT:2 
AD:4) renvoie un handle H pour le segment identifie ID, 
de taille LG, oyont les attributs AT et eventuellement 
une adresse AD. Cette fonction qui appartient au 
Memory Manager va permettre a celui-ci de gerer dyna- 
miquement l espace-memoire pour tous les programmes 
— systeme ou utilisateur — qui veulent reserver de la 
place en memoire au fur et 6 mesure de leurs besoins. 

Reservation d'une page zero 

PEA $0000 H;4 octets sur la pile pour y mettre 
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PEA 
PEA $0000 
PEA $0100 
LDA ID 
PHA 

PEA $0001 
PEA $0000 
PEA $0000 
LDX £$902 
JSL $£10903 
BCS Erreur 
PLA 

STA QQ 
PLA 
STA 02 

LDA °00§ 



STA 00 



le resultal. 

LG : Longueur du segment sur 4 octets, 

ID : N° ({'identification du segment sur 16 bits. 

AT : Atlributs du segment sur 16 bits. 

ADL : Adresse du segment sur 4 octets. 

ADH (0 si 6 determiner par le Memory Manager), 

Code de la fonction NewHandle du Memory Manager. 

Execution de cette fonction. 



Recopie des 2 octets les moins significatifs 
du Handle resultant, aux positions $00 et SOI 
et des 2 octets les plus significatifs en $02 
et $03 de la page Zero pointed par D. 
Chargement du contenu de I'adresse contenue dans 
$00 $01 S02.SS3 c'est-a-dire les 1 octets les moins 
significatifs de I'adresse de debut du bloc reserve 
(mode d'adress age Indirect Direct long). 
Recopie de cette valeur en $00, $91 (les 2 octets les 
moins signifactifs suffisent a connaTtre I'emplacement 
de ce clot, puisqu il s'agit d'une page Zero — banc 
$00-). 



Cet example mot en evidence les particularity suivantes : 

• Les para metres des fonctions d'Outils sont transmis 
sur la pile, le resultat de la fonction etant disponible 
en haul de la pile a I'aboufissement de la fonction ; 
c est au programme appelant de reserver la place du 
resultat sur la pile avant d'empiler les parametres 
d'entree de la fonction. 

• (.'instruction PEA est precieuse pour empiler une 
valeur immediate sur la pile sans passer par I'accu- 
mulateur. La programmation en AAocro-assembleur 
permettrait une ecriture plus evofuee : 
PushWord £val qui empile 2 octets en mode immediat 

(PEA vol) 

PushWord Adr qui empile le contenu de Adr (LOA Adr, 
PHA) 

PushLong £val est transformee en PEA valp, PEA valm 
PushLong Adr est transformee en LOA Adr, PHA, LDA 
Adr+2, PHA 

• La fonction NewHandle est habilitee a reserver de la 
place dans tout I'espace-memoire mais cheque seg- 
ment alloue est muni des attributs suivants : 

— Les attributs permanent* : 

F i xe en cas d e com pac tage [bi t 1 4) 

Ne pouvant etre a cheval sur 2 bancs (bil 4) 

Non situe dans les bancs 0, 1 et les lones-ecran (bit 3) 

Aligne sur une page (bit 2) 

Implante a une adresse definitive (bit I) 

Situe dan s u n banc don ne (bit 0) 



— Les attributs temporoires : 

Verrouille (immuable provisoirement) (bit 15) 

Un niveau de priorite en cas de purge (bits 8 et 9) 

— Par exempfe : 

C000 ; segment fixe et verrouille (zones-systeme) 
CI 15 : fixe, verrouille, niveau 1 de purge, sur un bene, ali- 
gne et dans un banc donne (pour les pages Zero 
des outils) 

C013 : verrouille, fixe, implante a une adresse donnee 
(ProDOS) 

C010 ; verrouille, fixe, tenant dans un banc (programme- 

utilisateur en cours) 
4310 ; fixe, purgeoble, tenant dans un banc. 

• La fonction NewHandle a besoin de connaltre le N° 
d'identification du segment a reserver en memoire, 
c'est-a-dire quelle categone (0 a F) de programme il 
servira et a quel N° d'ordre nn de programme dans 
cette categoric Ce N° d'identification est attribute 
automatiquement par le programme-pilote de char- 
gement et il est lisible par la fonction GetID de l outit 
Miscellaneous. 

Void les modefes de N° d'identification de segment : 

flxxx Memory Manager 

1 xnn Programme duplication (ex : 1002) 

2xnn Programme-Pilote 

3000 ProDOS 

4xnn Outils 

5xnn Accessoire de bureau 

6xnn Code-objet chargeable en cours d'execution 

7xnn Chargeur de programmes 

8xnn Fonction-systeme 

9xnn Tool Locator, outil N°l de localisation des autres 
Axnn Setup File, fichier-programme charge au demar- 
roge (le porametre x est fourni au Memory Mana- 
ger dans I'ordre croissant des demandes pour un 
meme type de segment). 

* L adresse de debut du bloc reste valable aussi long- 
temps que le bloc n o pas ete deplace. Si Ton se sort 
de cette adresse pour exploiter les donnees de ce 
bloc 6 la place du Handle, on dit que le Handle est 
dereference. 

Visualisation des reservations avec fa Mangier 

Pour mieux se rendre compte des emplacements attri- 
bues aux segments de programmes-systemes ou utilisa- 
teur, il existe un accessoire de bureau le MANGLER que 
Ton peut appeler d tout moment (par les touches Esc- 
Ctrl-PO) et qui repond 6 la commande LIST en aff ichant la 
liste des handles sous la forme suivante (voir tableau 
page 70). 

La colonne ID permet de reperer le type de segments, 
ainsi 1003 identifie un programme-utilisoteur, ou 4O0E, 
I'outi I Window Manager. (Suite pogv ?o) 
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LI5TE DE5 HANDLES (lire page 69) 


N° Ptr-MoTtr» 


Adresse 


Attribut 


ID 


Longueur 


Precedent 


Suivant 


01 


El 1700 


000000 


C000 


0000 


Q00BQQ 


000000 


E11A70 


02 


E11A70 


000800 


CI IS 


1002 


000400 


El 1700 


E06028 


03 


E06028 


QQQQQQ 


C105 


1002 


000800 


E11A70 


E1191C 


04 


11191 c 


009500 


C013 


3(301 


00035C 


E06028 


E118F4 


05 


E118F4 


00985C 


C013 


3001 


0026A3 


E1191C 


E118F4 



La troisieme colonne donne I'adresse d'implanration du 
segment qui est le contenu du Pointeur- AAaTtre dont 
I'adresse est dans la deux feme colonne. C'est la valeur 
de fa deuxieme colonne qui est presente dons la pile 
apres 1'execution de la fonction NewHandle. La com- 
mande MON conduit au moniteur et on en sort par Ctrl-Y. 

Essayons de suivre la lisle des handles : 

'E1/1700.1713 

El / 1700 : 09 00 00 CO 00 00 90 0800 00 00 00 00 00 
El/1710: 70TAE1OO 

Cheque element de la liste des blocs reserves comprend 
done successivement : 

— I'adresse du debut du bloc : 4 octets 

— les attributs : 2 octets 

— I'lD du programme : 2 octets 

— la longueur du bloc : 4 octets 

— I'adresse de I'element suivant : 4 octets 

— I'adresse de I'element precedent : 4 octets 

Les mots sont toujours implantes avec I'octet le moins signi 
ficotif devant. Les adresses doivent etre lues de droite 6 
gauche, exempfe : E1/1A70. 

Les autre? commondes interessantes du Mangier sont : 

TOT ALMEM renvo* Id fibre total d octets de memoire vive 00 1 4 00 00 
FREEMEM renvoi* le nbre docfets litres 000E 8 F 05 

MAX BLOCK renvois le bloc le plus grand disponible ' 00B BC 83 

Les resultats obtenus sont ceux d'une configuration du GS 
avec une carte d'extension de 1 MegaOctets, le systeme 
APW et son Editeuren ligne. 

Exemple de blocs reserves pendant Vexecution 

Les Window-Records de Window Manager sont des blocs de 
donnees utilises par le gestionnaire des fenetres ma is le 
programme duplication n'est pas suppose y avoir acces 
directement. 

Les fond ions appliquees a des fenetres demandent en effet 
comme argument le pointeur qui aura ete renvoy£ par la 
fonction de creation d'une nouvelle fenetre ; 
Allocation START 

Using Globales 

Push Long £0 



Allocation 



wind Pa rams 



EndWind 



Clo bales 
Id 

winPtr 



Activation 



PushLong EWindParams 

_NewWindow 

pla 

sta WindPtr 
pla 

sto WindPtr+2 

creation d'autres fenetres 

rts 

anop 

dc i2 EndWind- WindParams' 
dc i2'%1 100000010100000' 
,..(tous les parornetres) 
anop 
END 

La fonction NewWindow cree un bloc appele 
Window Record a partir des parametres 
definissant la fenetre et i'environnement et 
I'integre dans la liste des fenetres. La struc- 
ture du Window Record comprend en tete un 
pointeur sur le Window Record de la fenetre 
suivante, puis la structure du Port Graphique 
de cefte fenetre appele Window Port, puis 
des handles des differentes regions et des 
controles et un entier caracterisant le type de 
cadre. NewWindow renvoie dans la pile 
I'adresse du Window Port et c'est el le que 
I'an doit utiliser comme argument d'entree 
pour toutes les fonctions applicables a cette 
fenetre. La variable correspondante WinPtr 
sera declaree comme globale, c'est a-d ire 
que son emplacement sera reserve dans un 
segment de donnees que tous les segments 
du programme pourront utiliser grace a la 
directive Using Globales. 

OATA 

ds2 

ds4 

autres donnees 

END 

START 

Using Globales 
PushLong WindPtr 

SelectWindow 

etc. 
END 



rend active la fenetre 
designee par I'adresse 
I de son port. 
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Rappels sur les instructions de reservation et de declaration de variables 



Eft Macro-Assembleur 

variable entiere x dc 
pointeursurx xptr dc 



\TQ' 
MY 



chaine de caracteres 
pointeur sur chaine 
hondle d'un bloc 



pointeur 



nom dc e'UnTitre' 
npir dc i4'nom' 
hondle gequ 00 

le programme utilisera I'adresse $00 
de la page Zero en cours pour stocker 
les 4 octets d'un handle fourni par 
NewHandle. 
wptr ds 4 

lo valeur du pointeur sera enregistree 
en wptr ou 4 octets lui sont reserves. 



nc 

variable entiere int x (type) 
pointeur sur x int * xptr (type) 
xptr=&x (valeur) 
char nom°B§ 
chaine de caracteres strcpy(nom,"Un titre") 



Perspectives 



Voir figure ci-dessous. 



$00 $01 $02 



D-> 











' P9 
' en ' 
' lign \i 


bloc 


pil e 

4s 


y ////; 


pg 

dor— 
mant 


page 
Zero 


ou- 
tils 

— 







$E0 $E1 



H TTPMTIftM I A la suite d'une reorganisation des services 
HI I Ell IIUI1 ■ redactionnels de TREMPLIN MICRO, il ne 

nous est plus possible de fournir des rensei- 
gnements techniques par telephone, 

Vous pouvez par contre nous ecrire, mais n'oubliez pas de joindre une 
enveloppe timbree pour la reponse. MERCI ! ■ 
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WHIIHMIIHIfnillllllllllllfflHHl 



HUM 



Yvgn KOENIC 

repond a nos lecteurs 



Question : Nous avons un probleme : nous vouions, au cours 
dun programme en PASCAL, charger des illustrations reali- 
sed a I'oide du logicief de dessin N Extosie'\ Mais, apres ie 
rappel du dessin sauve en binoire sur disquette, nous n'arri- 
vons pos a connecter la double haute resolution necessaire 
au ban afiiehage des pages ("Extasie" fonctionne en double 
haute resolution et les dessins doivenf done etre affiches 
dans cemode). Pouvez-vous nous indiquer (a marehe a suivre 
en BASIC et, si possible en PASCAL U.CSD. (sinon, nous tro- 
duirons). Merci d'avance ? 

Emmanuel ft. (club micro du college St- Joseph du Parchomp). 

Comme vous etes lecteur de Tremplin Micro, cela me 
conduit a vous conseiller de vous reporter d I article 
Double Haute Resolution, publie dans Tremplin Micro 
n°10, 

Dans cet article, le chargement et 1'affichage d'images 
DHGR elait explique. Cependant, le programme en 
question etont destine a jn He, il n etoit pas fait etat 
d'une operation indispensable sur le He. 

POKE 49165,3 STA SC0QD Active 80COL, le firmware' activera 
80SIORE. 

Retour page! (MAIN) par securite. 
Active mode graphique. 
Graphique seul. 
Active haute resolution. 
Active IOU0IS, utile sur lie. 
Active DHGR mais n'opere sur Ik 
qj' apres avoir foit STASC07E 



POKE 49236,9 STA $C054 

POKE 49232,9 STA SC550 

POKE 49235,9 STA $C053 

POKE 49239,9 STA $C057 

POKE 4927B.0 STA $C87E 

POKE 49246,3 STA $C05E 



Questions : 1° Existe-t-H un moyen pour savoir sur quelle 
machine se trouve un programme ; j'oi developpe un pro- 
gramme sur 11+ destine a un Ik quipossede les Heches haut 
et has, Je desirerais done charger un fichier "FLECHE2C " lors- 
que le programme tourne sur He et "FLECHE2+ " quand il 
fourne sur II +, et ceci de focon transparente pour I'utMsa- 
feur (pas de conversationnel I). 

2° Toujours ovec les fkhiers : J'ai rempli une premiere fois 
des enregistrements d'un fichier a occes direct de longueur 
265 et cela sur 10 enregistrements, par exemple. J'oimodifie 
I'enregistrement n °3 et il contient bien les nouvelles voleurs. 
Est-il possible de savoir, en examinant finement la structure 
du fichier ou plus generalement le disque, si I'enregistre- 
ment 3 a ete effectivement modifie et d'autre part, peut-on 
retrouver les onciennes valeurs ?Meme question si iiyapiu- 
sieurs modifications (dans le temps) sur un meme enre- 
gistremenf. Philippe o. (92240 malakoff) 



IDENTIFICATION DES MACHINES 

Cela commence a devenir complique : 





FBB3 ' FBIE 


FBCO 


FBBF 


APPLE II 


$38 








APPLE 11 + 


SEA 


$AD 






APPLE lie 


$06 




SEA 




APPLE lle+ 


$06 




$EQ 




APPLE lie 5" 


$06 




$00 




APPLE lie 3.5' 


$06 




$00 


$FF 


APPLE III emul 


SEA 


SB A 




$00 



A mon avis, pour votre probleme, il y a mieux a faire. 
Si j'ai bien compris vous souhaitez utiliser les fleehes 
droite-gauche sur 11+ , haut-bas sur He ou He. Fai- 
tes done les deux en vous souvenant que fleche haut 
= Ctrl K et Heche bas = Ctrl J. 
Ce qui secode ainsi : 

CMP £$85 CMP £$88 

BEQ down BEQ up 

CMP £$8A CMP £$8B 

BEQ down BEQ up 

down LD A £$8A ... up IDA £$8B .. . 

Je vous suggere d'homogeneiser ainsi le contenu de 
I'accumulaleur, si vous devez refaire un test ulterieu- 
remenl, pour savoir quelle commande est active. 

MODIFICATION D UN ENREGISTREMENT 
Desole ! lorsque vous modiliez un enregistrement 
SANS effacer la totalite du fichier (ce qui est normal) 
le nouveau contenu s'£crit SUR (emplacement de 
l ancien (heureusement), Tout ce que vous pouvez 
esperer recuperet ovec TDUMP ou PROTYPC par 
exemple, e'est eventuellement la fin de I'ancienne 
fiche si la nouveile chalne est plus courte que 
I'ancienne. Exemple ; ancienne - Anticonstitutionnel- 
lement/ (le / represente ici le (CR)) 
nouveile = 11. 

Sur disque vous avez alors disque = 2/ ticonstitution- 
nellement/ ce qui ne gene pas en acces normal mais 
peut etre surprenant' en lecture par TDUMP ou 
PROTYPC. 

J utilise cette methode lorsque je suis conduit a annuler 
une fiche, Je mets alors un DELETE ($7F) en tete. £o per- 
met, lors des trts, de repousser les annules en fin de liste 
el je peux si necessaire recuperer la chame (sauf les 2 
premiers caracteres). Cela se rapproche du mode efface- 
ment de fichier sous DOS 3.3 ou le numPiste TSL est mis a 
3 MAIS est sauve en fin du titre fichier; 



Question : Je possede un APPLE He muni d'une carte BQ colonnes 
etendues (carte CHAT MAUVE). J'ai ecrit un programme en 
BASIC permettant de gerer des cartons de LOTO, Afin doccele- 
rer ta recherche des numeros tires, les cartons sont places dans 
un tableau en memoire vive. Si cette solution me donne entiere 
satisfaction au niveau de la vitesse d execution ; elle est neon- 



72 



GUYHACHETTE 



R 



moins couteuse en place memoire. Si bien que je ne puis 
introduce plus de 250 cartons. Au-dela, le message OUT OF 
MEMORY apparoit. Poum'ez-vous m'indiquer une solution qui 
me permettrait de depasser la limite de 250 cartons, comme 
par exemple : utilisation de fa memoire auxiliaire de la carte 
CHAT MAUVE ou reloger le D.O.S. dans la carte iangage ? 
Disposez-vous de programmes permettant d effect uer ces 
operations ? Par avance, fe vous remercie de bien vouloir 
consacrer quefques instants a I etude de mon probieme. 

Michat M. { mOO D6CAZE VILL E) 

Vous etes avore en informations lorsque vous posez 
voire probieme et de ce fait, il est difficile de irouver 
une solution. Je vais tenter de vous donner des pistes. 
Quel systeme d exploitation utilisez-vous, DOS 3.3 ou 
ProDOS ? Quel type de tableaux utilisez-vous : flot- 
tants, entiers ou chaines ? 

On peut reloger DOS 3.3 en carte longage, cf. Call 
APPLE in depth All About DOS 3.3 (288 pages en 
anglais), norma lement disponible chez SIVEA. II n'est 
par contre pas possible de deplacer ProDOS. 
Si vous travaillei sur des tableaux de chaines il existe 
un utililaire EXTRA. K chez BEAGLE BROS qui permet 
de meftre les variables chaines dans la MemAUX, Cet 
uti litaire est peut-etre disponible chez SIVEA, 
Si vous utilisez actueilement des tableaux flottonts, 
les remplacer por des entiers ralentira le programme, 
mais occupera 2 octets por numero au lieu de 5. 

Si vous employez deja des entiers, il vous serait possi- 
ble de loger 2 numeras dans un seul octet avec la for- 
mule NN - 100 * Nl + N2 qui ne fonctionne que si 
les numeros sont tou jours inferieurs a 10Q mais je 
crois que c'est le cas. Enfin, if est possible d'envisager 
de renoncer aux fichiers TEXT et d'employer un gros 
fichier BIN dans lequel chaque numero de a 255 
occuperait un seul octet. L'inconvenient de cette for- 
mule est que Ton doit a chaque fois charger et sauver 
le fichier complet, mais un BIN se charge beaucoup 
plus vitequ'un TEXT, 

Enfin, il n'est peut-etre pos absolument indispensable 
d'avoir tous les cartons en meme temps en memoire. 
Paurquoi ne pas lire des groupes de 50, les analyser, 
charger un autre groupe et ainsi de suite. Cette for* 
mule permettrait de realiser un traitement indepen- 
dent du systeme dexploitation et, eve ntuel lement, 
l'acquisition d'une carte extension memoire de 256 ou 
512 K vous permettrait d'acceder plus vite encore aux 
fichiers charges en RAMdisk. 
J'espere que vous comprendrez qu'il mest impossible 
d'etre plus precis. 

CONFIGURATION I MACE WRITER 

Travaillant actueilement sur un Apple lie, j'oi pris quelques 
jolies coleres a cause du mode de gestion de I' interface serie, 
Fatigue de taper PRINT CHR$(9) "96N'* avant chaque listage 
et ne souhaitant pas ajouter cette sequence dans mes pro- 
grammes, j'ai mis en place une courte routine qui, sans pas- 



ser par les utilitaires, permet de CONFIGURER ^interface serie 
sur la largeur de votre choix (il faut bien entendu que cette lor- 
geur soit compatible avec la police adoptee, ex. : 96 maxi en 
ELITE). La routine elle-meme comporte 25 octets, mais je me suis 
amuse 6 la mettre en place dans un petit programme BASIC qui 
montre en prime comment ne pas trop se fatiguer. Tapez la rou- 
tine HEXA, tapez ensuite les lignes 1 , 3, 4, 10, 20, 30. 40. 50, 70. 

En recopiant la ligne 3 a 1'aide du curseur (ESC I ) et bien 

entendu en changeant au possage quelques details vous aurez lo 
ligne 1. 

Foites RUN, les lignes 1140 et 1150 que vous n'avez pas tapees 
vont s'afficher sur I ecran ou vous pourrez les relire 6 l aide du 
curseur (il y aura un : en trop 6 la fin de chaque ligne). 

1 GOTO 10 

2 PRINT " 1140";: FOR I = TO 1 1 : PRINT "POKE 768 + I"/' 
PEEK (768 + 1)":";: NEXT : PRINT 

3 PRINT" 1150";: FORI = 12T0 24: PRINT "POKE "768 + 17 
PEEK (768 + I)":";; NEXT : PRINT 

4 END 

10 TEXT ; HOME : D$ = CHR$ (4) 
20 GOSUB1140 

30 FORI = 1 TO 6: POKE 776,16 * I 
40 CALL 768 

50 PRINT DS"PR£1": LIST 1140,1150: PRINT DS"PR£0": NEXT 
70 END 

1140 POKE 768,173: POKE 769,24: POKE 770,192: POKE 771 ,72: 
POKE 772,141: POKE 773.1: POKE 774,192: POKE 775,169: 
POKE 776,96: POKE 77,141 : POKE 778,85: POKE 779,192 

1150 POKE 780,141: POKE 781,123: POKE 782,4: POKE 783,141: 
POKE 784,84: POKE 785.192: POKE 786,104: POKE 787,48: 
POKE 788,3: POKE 789,141: POKE 790,0: POKE 791,192; 
POKE 792,96 



1160 


RETURN 








300 


AD 18 


CO 


LDA 


SCO 18 


303 


48 




PHA 




304 


8D 01 


CO 


STA 


SC001 


307 


A9 60 




LDA 


£$60 C'est lui que Ton ajutla. 


309 


8D 55 


CO 


STA 


$C055 


30C 


80 7B 


04 


STA 


S047B 


30 F 


8D 54 


CO 


STA 


$C054 


312 


68 




PLA 




313 


30 03 




BMI 


$0318 


315 


8D 00 


CO 


STA 


SC000 


318 


60 




RTS 


BSAVE SETLARGEUR,A$300,L$19 
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Tel. W.03.3479 - W 03.35.14, 

Crwdif Agrkok d'lll* *t Viloin* i*. nj* du Pr* Pmnh 9 - 35040 RENNES 

Vous ne CQuna'sse? peul elre pos encore MICROCAM ce grand Club 
do micro inlormolique de lo Caisse Regionole de CREDIT AGRICOIE 
MUTUEL de I'llle et Vilaine. Pourfanf l experience de MICROCAM 
est inleressante 6 plusreurs litres pursque sa perenile et son dyna- 
mism* lui permelionl de feler sort einquiem© annivorsaire. 

Paron les aclivites noinbreuses du club, les adherents comnuifnl 
UP peril journal donomme "LES AVENTURIER5 OU BOJT OU 
MONDE' qut lete son deuxieme anniversoire Compte lenu de tes 
*v4*»»m©n's, MICROCAM souhailoil vous associer a ses lesltvifes 
en vous odressanl te numero special excepiionnellemem en cou- 
leur. qui vous res um era cette experience remorquoble ■ 
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Votre bibliotheque 
INFORMATIQUE 



• SILICON VALLEY, 
UN MARCHE AUX PUCES 
(A. Azouaou et R. Magnavat) 

De la fameuse Silicon Volley, nous ovons 
tous entendu parler. Pour la plupart des 
jeunes Francois (et aussi pour quelques 
"vieux" mordus de I'informatique person- 
nelle — j en suis ! ), c'est le nouvel Eldo- 
rado. Un gigantesque lemple du fulur, et 
en tout cas la materialisation, pour de 
jeunes Americans ambitieux et doues, 
de reves fabuleux. Chez les Applemonia- 
ques, on pense evidemment oux deux 
Steve, mais ce ne sont que deux grandes 
figures parmi tont d'autres* Lo Silicon 
Volley, cela represente d'abord 40Q0 
entreprises de pointe regroupees sur un 
site aux dimensions de Paris. Est-il exact 
que la majorite des entreprises naissent 
dans des garages ? C'est une outre his- 
toire... et c'est precisement la que Robert 
Magnaval et Alain Azouaou intervien- 
nent. Leur livre est la premiere 6tude 
francjoise sur ce sujet. II vous permettra, 
c'est sur, de mieux comprendre le 
modele "Silicon Voile/", 

eOlTIONS ftAMSAY. 

9, me du Cherche-MidL 75006 PARIS 
240 pages — 92 Ft1c> 





• TROIS STAPES VERS 
L'lNTELUGENCE ARTIFICIELLE 
SUR PC ET COMPATIBLES 
(Rene Descamps) 

Oui, je sois, vous ne possedez pos 
d'IBM PC et vous ne connaissez pas le 
Basic Microsoft, Mois ce n est vrai que 
pour une partie du lectorat de Tremplin 
Micro. En effet, depuis quelque temps 
— et notamment depuis environ un an 
— , les utilisateurs d'un Apple sont fre- 
quemment amenes 6 travailler sur IBM 
ou compatible. Lo chose deviendra 
d'oilleurs possible, prochainement, sur 
le nouvel Apple IICS (il nous doit bien 
cela !). 

AJors, si vous en ovez lo possibility 
ouvrez le bon bouquin de Rene Des- 
comps et essayez, en sa compagnie, de 
resoudre les puzzles de Taquin, de 
simuler un pilote automatique ou de 
mieux cerner lo progrommation de 
jeux aussi complexes que les dames et 
les echecs. 

A noter que les poresseux peuvent 
commander lo disquette d'accompa- 
gnement, mais j'ignore comment elle 
se presente, ne T'oyonf pas eue en 



par NESTOR 

main. Je crois en tout cas etre capable, 
avec t aide de Rene Descomps (c'est un 
maitre en la mot i ere), de creer mes 
propres systemes experts, sur Apple 
bien stir, mais en m'inspiront des pro- 
grammes proposes sur ISM. 

EDITIONS DU P. S.I. 

BP 86 77402 LAGNY-SUR-MARNE 

270 pages — 205 F 11c. 



• ECRIRE DES LOGICIELS 
PEDAGOGIQUES 
(M. Hennaii, J.-F. Berthon 
et M. Binse) 

Ce nouveau volet de la collection 
"Savoir & Savoir-faire" est un guide 
pratique essentiellement destine oux 
enseignonts. It devrait les aider a deli- 
nk et a realiser des logiciels pedogogi- 
ques, mais il peut aussi presenter un 
interet pour toute personne desirant 
creer des didocticiels solides et utiles. 
C'est un ouvroge de professionnels. Sa 
lecture est edifiante. Les exemples ne 
tournent pas. on sen doute, sur le 
materiel Apple, mais il n'est pas inter- 
dit de les adapter. 

CEDIC /NATHAN, 6. bdJourdon 75014 PARIS 
Til (1)45.65.06.06. 



savoir & savoir fare 
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N°13 



Norn 
Adresse complete 
Code postal I 



Bulletin de commande et d'abonnement 

A retourner a TREMPLIN MICRO — SeniMe — 861 DO CHATELLERAULT 

Prenom 



'ille 



LBS DfSOUfrreS FONCTIONNENT SOUS DOS ET ProOOS (a condition da possader una vet %ian Apple dc cd SYSTEME D EXPLOITATION) 



QUANTITE 


DESIGNATION 


PRIX UNITAIRE 


TOTAL 




Abonnement d 6 num^ros (un an) : FRANCE 


190 F 






Abonnement d 6 disquettes (un an) ; FRANCE 

i* portlr du numtra : 


600 F 






MINIE 

LE BUREAU DE MINI F 

LES SOURCES DU BUREAU _ 


Logiciels 

de Claude AUBRY 


ISO F 




ISO F 




SO F 






DISQUETTE UTILITY-DISK (Marcel COTTINI) 


170 F 






LIVRE : APPLE // PRODOS. GUIDE DU PROGRAAAMEUR APPLESOFT 


1 20 F 






LIVRE : LE 6502 PAS d PAS 


120 F 






LIVRE + DISQUETTE : CLINS D'CEIL AU 6502 


160 F 






LIVRE + DISQUETTE: ROUTINES LAA POUR 65C02 ET 6502 


160 F 






RELIURE-ECRIN 


40 F 






DISQUETTE- INDEX (N°l 6 6) 


30 F 






DISQUETTE- INDEX (N°7 d 12) 


30 F 






SIGNATURE (CHECK-LIST) 


30 F 






DISQUETTE DE TREMPLIN MICRO : * (tlm &t lie) 
N°l □ N°4 D N°7 □ N°ioa N°13n 

N°2n n°s □ n°8 n n°ii n 

N 3 N°6n N°9a N°12CJ 


105 F 






NUMERO DE TREMPLIN MICRO : * 

N°l □ N°2n N°3D N°4 □ N°5 fl N°6 □ 

N°7U N°8n N S 9D N C 10U N°ll □ N°12 □ N°13 □ 






30 F 




33 F 





1 Coch&r la (ou Itrs) cass(s) de voir* ehoitc. 



Nvmero d'abonne ou de client ; 



Participation aux frois d'envoi (gratuit pour ies a bonnes} + 10 F 
Envoi en paquet-poste recommande a parti r de 400 F 



Total a payer 



Merc! de libeller votre r eg I em en t d l ordre de TREMPLIN MICRO / Editions JIBEN A . 
Mode de reglement choist : □ Cheque fl AAandat lettre LJ Carte Bleue 




N ' de vofre Carte Bleue 
Date d'exptratlon \ J J 
Montant a debitor 



Signature (obligatolr*) 
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IVotre bibliotheque 
INFORMATIQUE 



• IE BASIC MICROSOFT 
SUR MACINTOSH 
(Meri Miller et Ken Knecht) 

C'esf un oarage de MEMOIRE VIVE, editeur 
quebecois bien connu, diffuse en France par 
le P.S.I, Fl a ete fraduit de I'americain par 
Gilles Sointonge, Yves leclerc (j'ignore s'il 
est porent de Felix ! ) et Robert Dovies. C'est 
un livre copieux, complet, clalr et tout a fait 
indispensable pour programmer en Basic, 
sur Macintosh. Je vous signale au passage 
qu'il se revele egalemenl irritant quand on 
est possesseur d'un Apple IICS et de son 
miserable Applesoft. A quand le Basic 
Microsoft sur cette machine ? 
Tenez ! j'en reve la nuit et je me demande 
parfois pourquoi je ne me 5 u is pas offerl un 
Mac d'occasion plutot qu'un G5 neuf. 
"Patience |* m'a recemment recommande 
Guy-Hachette (qui n'en pense pos mains), II 
attend, semble-Hl, un nouveau Basic... h 
moins qu'il ne s'agisse d'un C performant, 
mais les Borland et autres genies ne sem- 
blent pas disposes a investir dans le GS. 
Mais revenons a notre bouquin pour consta- 
ter que les possesseurs de Mac ont bien de 
la chance, lis disposent, avec le Basic de 
Microsoft, d'un langage reellement perfor- 
mant, Le guide £dite par "Mimoire Vive" 
concerne la version 2.0 et fournit reellement 
tous les eclaircissements sur un Basic de 
plus en plus repandu. Fenitres, sourigra- 




phie, animation et eflets sonores, fichiers et 
gestion de fichiers, boite a outils, common- 
des et fondions..,. et puis les references 
thematiques, les erreurs communes du 
Basic, les mots reserves... e! tout et tout ! 
EDITIONS DUP.S.f. 366 pages- 250 F He, 

* LA PROGRAMMA HON 
SANS PANNE 

(Y. Tallineav, N. Moine 
etl.DallV) 

Cet ouvroge constitue plutot un cours magis- 
tral qu'un livre ordinaire sur (Inform otique. 
On peut en conseiller la lecture — ou plutot 
f etude — o toute personne desirant oppro- 
fondir la demarche structuraliste et son 
application a I'ecriture des programmes. Un 
rapide survol de la table des matieres vous 
donnera une idee du contenu de lo 
mefhode : les quatre points d'appui, la 
demarche structuraliste, les normes de rea- 
lisation, les outils, ('organisation du travail, 
les aspects psychologiques, la formation, 
les chiffres reperes, I'avenir, un exemple de 
description d'un algorithme, I'ecriture de 
programmes et de procedures... 

Bonne presentation, tres aerie, dans un for- 
mat inhabituel (le format A4). 

COITIONS D \HFORMA TIQUE, 

99, bd Jeon-Javres, 92100 BOULOGNE 
250 pages ~450Fttc. 

• USAGES SPtCIAUX 
ET PROGRAMMATION 
DU MACINTOSH 

EN PASCAL ETC 
(Yann Fain) 

L auteur est avont tout un mathematiden, 
mais il programme depuis 1970 et dirige 
actuellement une soctete d'informatique. 
II a aussi anime de nombreux cours de 
developpemenl sur diverses machines, 
dont le Macintosh... auquel il s'interesse 
speeialement dans ce livre. 
Son objectif : montrer 6 ses lecteurs com- 
ment mieux se servir de leur micro favori 
et, surtout, comment le programmer en 
Pascal, en C, en Forth et en Basic. Bien 



entendu, II est impossible de tout ensei- 
gner en quelque 300 pages, mais il est 
par contre possible d'eclairer une per- 
sonne curieuse sur bien des points. 
Par de nombreux exemples commentes, 
Yann Fain vous apprendra comment per- 
sonnaliser vos programmes, faire passer 
vos donnees d'une application a une 
outre sans passer par les fastidieux 
Couper-Coller, reparer un Finder defec- 
tueux, bref, comment vous tirer de situa- 
tions parfois delicotes. Dans son avertis- 
sement, I'auteur precise que (nous le 
citons) meme si vous n'etes pas un pro- 
grammer chevronne, vous avei en main 
un livre qui vous permet aussi d'ecrire 
des applications, de comprendre les 
menus, les fenetres, les icdnes, les rap- 
ports entre celles-ci et les noms des 
applications, les ressources, les evene- 
ments, et de composer du code sur votre 
Mac. II ajoute que les programmes four 
nis sont operationnels, Tremplin Micro 
attend le meme guide... pour I'Apple 
HGS. A vous de [over, Yann Fair ! Si 
I'aventure vous tente, vous benef icierez, 
c'est promis, de notre appui et vous com- 
blerez les desirs de nombreux lecteurs ! 

EYSOLIE5, 61. bd Saint-Germain, 75240 PARIS 
CEDEX 05 324 pages - Prix non connu 
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